/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / psgml / psgml-edit.elc.z / psgml-edit.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 34 3a 31 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:15 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 73 67 6d |s-20.3/l|isp/psgm|
|000000a0| 6c 2f 70 73 67 6d 6c 2d | 65 64 69 74 2e 65 6c 0a |l/psgml-|edit.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 70 73 67 |    (err|or "`psg|
|000001f0| 6d 6c 2d 65 64 69 74 2e | 65 6c 27 20 77 61 73 20 |ml-edit.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 62 79 74 65 2d |t nil)).|..(byte-|
|00000260| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 c3 21 88 c2 c4 |code "..|!...!...|
|00000270| 21 88 c2 c5 21 87 22 20 | 5b 70 72 6f 76 69 64 65 |!...!." |[provide|
|00000280| 20 70 73 67 6d 6c 2d 65 | 64 69 74 20 72 65 71 75 | psgml-e|dit requ|
|00000290| 69 72 65 20 70 73 67 6d | 6c 20 70 73 67 6d 6c 2d |ire psgm|l psgml-|
|000002a0| 70 61 72 73 65 20 74 65 | 6d 70 6f 5d 20 32 29 0a |parse te|mpo] 2).|
|000002b0| 23 40 32 38 20 55 73 65 | 64 20 62 79 20 73 67 6d |#@28 Use|d by sgm|
|000002c0| 6c 2d 73 70 6c 69 74 2d | 65 6c 65 6d 65 6e 74 1f |l-split-|element.|
|000002d0| 0a 28 64 65 66 76 61 72 | 20 73 67 6d 6c 2d 73 70 |.(defvar| sgml-sp|
|000002e0| 6c 69 74 2d 6c 65 76 65 | 6c 20 6e 69 6c 20 28 23 |lit-leve|l nil (#|
|000002f0| 24 20 2e 20 36 39 33 29 | 29 0a 23 40 31 35 37 20 |$ . 693)|).#@157 |
|00000300| 52 65 74 75 72 6e 20 74 | 68 65 20 65 6c 65 6d 65 |Return t|he eleme|
|00000310| 6e 74 20 77 68 65 72 65 | 20 6c 61 73 74 20 63 6f |nt where| last co|
|00000320| 6d 6d 61 6e 64 20 6c 65 | 66 74 20 70 6f 69 6e 74 |mmand le|ft point|
|00000330| 2e 0a 54 68 69 73 20 65 | 69 74 68 65 72 20 75 73 |..This e|ither us|
|00000340| 65 73 20 74 68 65 20 73 | 61 76 65 20 76 61 6c 75 |es the s|ave valu|
|00000350| 65 20 69 6e 20 60 73 67 | 6d 6c 2d 6c 61 73 74 2d |e in `sg|ml-last-|
|00000360| 65 6c 65 6d 65 6e 74 27 | 20 6f 72 20 70 61 72 73 |element'| or pars|
|00000370| 65 73 20 74 68 65 20 62 | 75 66 66 65 72 0a 74 6f |es the b|uffer.to|
|00000380| 20 66 69 6e 64 20 63 75 | 72 72 65 6e 74 20 6f 70 | find cu|rrent op|
|00000390| 65 6e 20 65 6c 65 6d 65 | 6e 74 2e 1f 0a 28 64 65 |en eleme|nt...(de|
|000003a0| 66 61 6c 69 61 73 20 27 | 73 67 6d 6c 2d 6c 61 73 |falias '|sgml-las|
|000003b0| 74 2d 65 6c 65 6d 65 6e | 74 20 23 5b 6e 69 6c 20 |t-elemen|t #[nil |
|000003c0| 22 c0 11 5c 6e 0b 73 ab | 85 0c ab 82 0c 87 c5 60 |"..\n.s.|.......`|
|000003d0| 21 89 14 87 22 20 5b 6e | 69 6c 20 73 67 6d 6c 2d |!..." [n|il sgml-|
|000003e0| 6d 61 72 6b 75 70 2d 74 | 79 70 65 20 6c 61 73 74 |markup-t|ype last|
|000003f0| 2d 63 6f 6d 6d 61 6e 64 | 20 73 67 6d 6c 2d 75 73 |-command| sgml-us|
|00000400| 65 72 73 2d 6f 66 2d 6c | 61 73 74 2d 65 6c 65 6d |ers-of-l|ast-elem|
|00000410| 65 6e 74 20 73 67 6d 6c | 2d 6c 61 73 74 2d 65 6c |ent sgml|-last-el|
|00000420| 65 6d 65 6e 74 20 73 67 | 6d 6c 2d 66 69 6e 64 2d |ement sg|ml-find-|
|00000430| 63 6f 6e 74 65 78 74 2d | 6f 66 5d 20 32 20 28 23 |context-|of] 2 (#|
|00000440| 24 20 2e 20 37 36 38 29 | 5d 29 0a 28 64 65 66 61 |$ . 768)|]).(defa|
|00000450| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 73 65 74 2d 6c |lias 'sg|ml-set-l|
|00000460| 61 73 74 2d 65 6c 65 6d | 65 6e 74 20 23 5b 28 26 |ast-elem|ent #[(&|
|00000470| 6f 70 74 69 6f 6e 61 6c | 20 65 6c 29 20 22 08 ab |optional| el) "..|
|00000480| 82 08 11 c2 09 21 87 22 | 20 5b 65 6c 20 73 67 6d |.....!."| [el sgm|
|00000490| 6c 2d 6c 61 73 74 2d 65 | 6c 65 6d 65 6e 74 20 73 |l-last-e|lement s|
|000004a0| 67 6d 6c 2d 73 68 6f 77 | 2d 63 6f 6e 74 65 78 74 |gml-show|-context|
|000004b0| 5d 20 32 5d 29 0a 23 40 | 31 31 36 20 4d 6f 76 65 |] 2]).#@|116 Move|
|000004c0| 20 74 6f 20 61 66 74 65 | 72 20 74 68 65 20 73 74 | to afte|r the st|
|000004d0| 61 72 74 2d 74 61 67 20 | 6f 66 20 74 68 65 20 63 |art-tag |of the c|
|000004e0| 75 72 72 65 6e 74 20 65 | 6c 65 6d 65 6e 74 2e 0a |urrent e|lement..|
|000004f0| 49 66 20 74 68 65 20 73 | 74 61 72 74 2d 74 61 67 |If the s|tart-tag|
|00000500| 20 69 73 20 69 6d 70 6c | 69 65 64 2c 20 6d 6f 76 | is impl|ied, mov|
|00000510| 65 20 74 6f 20 74 68 65 | 20 73 74 61 72 74 20 6f |e to the| start o|
|00000520| 66 20 74 68 65 20 65 6c | 65 6d 65 6e 74 2e 1f 0a |f the el|ement...|
|00000530| 28 64 65 66 61 6c 69 61 | 73 20 27 73 67 6d 6c 2d |(defalia|s 'sgml-|
|00000540| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 65 6c 65 |beginnin|g-of-ele|
|00000550| 6d 65 6e 74 20 23 5b 6e | 69 6c 20 22 c0 c1 20 21 |ment #[n|il ".. !|
|00000560| 62 88 c2 c3 09 21 ad 83 | 09 c4 48 21 87 22 20 5b |b....!..|..H!." [|
|00000570| 73 67 6d 6c 2d 65 6c 65 | 6d 65 6e 74 2d 73 74 61 |sgml-ele|ment-sta|
|00000580| 67 2d 65 6e 64 20 73 67 | 6d 6c 2d 6c 61 73 74 2d |g-end sg|ml-last-|
|00000590| 65 6c 65 6d 65 6e 74 20 | 73 67 6d 6c 2d 73 65 74 |element |sgml-set|
|000005a0| 2d 6c 61 73 74 2d 65 6c | 65 6d 65 6e 74 20 73 67 |-last-el|ement sg|
|000005b0| 6d 6c 2d 65 6c 65 6d 65 | 6e 74 2d 65 6d 70 74 79 |ml-eleme|nt-empty|
|000005c0| 20 35 5d 20 33 20 28 23 | 24 20 2e 20 31 32 31 32 | 5] 3 (#|$ . 1212|
|000005d0| 29 20 6e 69 6c 5d 29 0a | 23 40 35 32 20 4d 6f 76 |) nil]).|#@52 Mov|
|000005e0| 65 20 74 6f 20 62 65 66 | 6f 72 65 20 74 68 65 20 |e to bef|ore the |
|000005f0| 65 6e 64 2d 74 61 67 20 | 6f 66 20 74 68 65 20 63 |end-tag |of the c|
|00000600| 75 72 72 65 6e 74 20 65 | 6c 65 6d 65 6e 74 2e 1f |urrent e|lement..|
|00000610| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 67 6d 6c |.(defali|as 'sgml|
|00000620| 2d 65 6e 64 2d 6f 66 2d | 65 6c 65 6d 65 6e 74 20 |-end-of-|element |
|00000630| 23 5b 6e 69 6c 20 22 c0 | c1 20 21 62 88 c2 c3 09 |#[nil ".|. !b....|
|00000640| 21 ad 83 09 c4 48 21 87 | 22 20 5b 73 67 6d 6c 2d |!....H!.|" [sgml-|
|00000650| 65 6c 65 6d 65 6e 74 2d | 65 74 61 67 2d 73 74 61 |element-|etag-sta|
|00000660| 72 74 20 73 67 6d 6c 2d | 6c 61 73 74 2d 65 6c 65 |rt sgml-|last-ele|
|00000670| 6d 65 6e 74 20 73 67 6d | 6c 2d 73 65 74 2d 6c 61 |ment sgm|l-set-la|
|00000680| 73 74 2d 65 6c 65 6d 65 | 6e 74 20 73 67 6d 6c 2d |st-eleme|nt sgml-|
|00000690| 65 6c 65 6d 65 6e 74 2d | 65 6d 70 74 79 20 35 5d |element-|empty 5]|
|000006a0| 20 33 20 28 23 24 20 2e | 20 31 35 30 31 29 20 6e | 3 (#$ .| 1501) n|
|000006b0| 69 6c 5d 29 0a 23 40 31 | 31 32 20 4d 6f 76 65 20 |il]).#@1|12 Move |
|000006c0| 62 61 63 6b 77 61 72 64 | 20 6f 75 74 20 6f 66 20 |backward| out of |
|000006d0| 74 68 69 73 20 65 6c 65 | 6d 65 6e 74 20 6c 65 76 |this ele|ment lev|
|000006e0| 65 6c 2e 0a 54 68 61 74 | 20 69 73 20 6d 6f 76 65 |el..That| is move|
|000006f0| 20 74 6f 20 62 65 66 6f | 72 65 20 74 68 65 20 73 | to befo|re the s|
|00000700| 74 61 72 74 2d 74 61 67 | 20 6f 72 20 77 68 65 72 |tart-tag| or wher|
|00000710| 65 20 61 20 73 74 61 72 | 74 2d 74 61 67 20 69 73 |e a star|t-tag is|
|00000720| 20 69 6d 70 6c 69 65 64 | 2e 1f 0a 28 64 65 66 61 | implied|...(defa|
|00000730| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 62 61 63 6b 77 |lias 'sg|ml-backw|
|00000740| 61 72 64 2d 75 70 2d 65 | 6c 65 6d 65 6e 74 20 23 |ard-up-e|lement #|
|00000750| 5b 6e 69 6c 20 22 c0 c1 | 20 21 62 88 c2 09 c3 48 |[nil "..| !b....H|
|00000760| 21 87 22 20 5b 73 67 6d | 6c 2d 65 6c 65 6d 65 6e |!." [sgm|l-elemen|
|00000770| 74 2d 73 74 61 72 74 20 | 73 67 6d 6c 2d 6c 61 73 |t-start |sgml-las|
|00000780| 74 2d 65 6c 65 6d 65 6e | 74 20 73 67 6d 6c 2d 73 |t-elemen|t sgml-s|
|00000790| 65 74 2d 6c 61 73 74 2d | 65 6c 65 6d 65 6e 74 20 |et-last-|element |
|000007a0| 35 5d 20 33 20 28 23 24 | 20 2e 20 31 37 32 33 29 |5] 3 (#$| . 1723)|
|000007b0| 20 6e 69 6c 5d 29 0a 23 | 40 31 30 37 20 4d 6f 76 | nil]).#|@107 Mov|
|000007c0| 65 20 66 6f 72 77 61 72 | 64 20 6f 75 74 20 6f 66 |e forwar|d out of|
|000007d0| 20 74 68 69 73 20 65 6c | 65 6d 65 6e 74 20 6c 65 | this el|ement le|
|000007e0| 76 65 6c 2e 0a 54 68 61 | 74 20 69 73 20 6d 6f 76 |vel..Tha|t is mov|
|000007f0| 65 20 74 6f 20 61 66 74 | 65 72 20 74 68 65 20 65 |e to aft|er the e|
|00000800| 6e 64 2d 74 61 67 20 6f | 72 20 77 68 65 72 65 20 |nd-tag o|r where |
|00000810| 61 6e 20 65 6e 64 2d 74 | 61 67 20 69 73 20 69 6d |an end-t|ag is im|
|00000820| 70 6c 69 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |plied...|(defalia|
|00000830| 73 20 27 73 67 6d 6c 2d | 75 70 2d 65 6c 65 6d 65 |s 'sgml-|up-eleme|
|00000840| 6e 74 20 23 5b 6e 69 6c | 20 22 c0 c1 20 21 62 88 |nt #[nil| ".. !b.|
|00000850| c2 09 c3 48 21 87 22 20 | 5b 73 67 6d 6c 2d 65 6c |...H!." |[sgml-el|
|00000860| 65 6d 65 6e 74 2d 65 6e | 64 20 73 67 6d 6c 2d 6c |ement-en|d sgml-l|
|00000870| 61 73 74 2d 65 6c 65 6d | 65 6e 74 20 73 67 6d 6c |ast-elem|ent sgml|
|00000880| 2d 73 65 74 2d 6c 61 73 | 74 2d 65 6c 65 6d 65 6e |-set-las|t-elemen|
|00000890| 74 20 35 5d 20 33 20 28 | 23 24 20 2e 20 31 39 38 |t 5] 3 (|#$ . 198|
|000008a0| 31 29 20 6e 69 6c 5d 29 | 0a 23 40 33 33 20 4d 6f |1) nil])|.#@33 Mo|
|000008b0| 76 65 20 66 6f 72 77 61 | 72 64 20 6f 76 65 72 20 |ve forwa|rd over |
|000008c0| 6e 65 78 74 20 65 6c 65 | 6d 65 6e 74 2e 1f 0a 28 |next ele|ment...(|
|000008d0| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 66 |defalias| 'sgml-f|
|000008e0| 6f 72 77 61 72 64 2d 65 | 6c 65 6d 65 6e 74 20 23 |orward-e|lement #|
|000008f0| 5b 6e 69 6c 20 22 c0 60 | c1 20 5c 22 1a c3 5c 6e |[nil ".`|. \"..\n|
|00000900| 21 62 88 c4 5c 6e c5 48 | 21 29 87 22 20 5b 73 67 |!b..\n.H|!)." [sg|
|00000910| 6d 6c 2d 66 69 6e 64 2d | 65 6c 65 6d 65 6e 74 2d |ml-find-|element-|
|00000920| 61 66 74 65 72 20 73 67 | 6d 6c 2d 6c 61 73 74 2d |after sg|ml-last-|
|00000930| 65 6c 65 6d 65 6e 74 20 | 6e 65 78 74 20 73 67 6d |element |next sgm|
|00000940| 6c 2d 65 6c 65 6d 65 6e | 74 2d 65 6e 64 20 73 67 |l-elemen|t-end sg|
|00000950| 6d 6c 2d 73 65 74 2d 6c | 61 73 74 2d 65 6c 65 6d |ml-set-l|ast-elem|
|00000960| 65 6e 74 20 35 5d 20 33 | 20 28 23 24 20 2e 20 32 |ent 5] 3| (#$ . 2|
|00000970| 32 32 32 29 20 6e 69 6c | 5d 29 0a 23 40 38 38 20 |222) nil|]).#@88 |
|00000980| 4d 6f 76 65 20 62 61 63 | 6b 77 61 72 64 20 6f 76 |Move bac|kward ov|
|00000990| 65 72 20 70 72 65 76 69 | 6f 75 73 20 65 6c 65 6d |er previ|ous elem|
|000009a0| 65 6e 74 20 61 74 20 74 | 68 69 73 20 6c 65 76 65 |ent at t|his leve|
|000009b0| 6c 2e 0a 57 69 74 68 20 | 69 6d 70 6c 69 65 64 20 |l..With |implied |
|000009c0| 74 61 67 73 20 74 68 69 | 73 20 69 73 20 61 6d 62 |tags thi|s is amb|
|000009d0| 69 67 6f 75 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |igous...|(defalia|
|000009e0| 73 20 27 73 67 6d 6c 2d | 62 61 63 6b 77 61 72 64 |s 'sgml-|backward|
|000009f0| 2d 65 6c 65 6d 65 6e 74 | 20 23 5b 6e 69 6c 20 22 |-element| #[nil "|
|00000a00| c0 60 c1 20 5c 22 1a c3 | 5c 6e 21 62 88 c4 5c 6e |.`. \"..|\n!b..\n|
|00000a10| c5 48 21 29 87 22 20 5b | 73 67 6d 6c 2d 66 69 6e |.H!)." [|sgml-fin|
|00000a20| 64 2d 70 72 65 76 69 6f | 75 73 2d 65 6c 65 6d 65 |d-previo|us-eleme|
|00000a30| 6e 74 20 73 67 6d 6c 2d | 6c 61 73 74 2d 65 6c 65 |nt sgml-|last-ele|
|00000a40| 6d 65 6e 74 20 70 72 65 | 76 20 73 67 6d 6c 2d 65 |ment pre|v sgml-e|
|00000a50| 6c 65 6d 65 6e 74 2d 73 | 74 61 72 74 20 73 67 6d |lement-s|tart sgm|
|00000a60| 6c 2d 73 65 74 2d 6c 61 | 73 74 2d 65 6c 65 6d 65 |l-set-la|st-eleme|
|00000a70| 6e 74 20 35 5d 20 33 20 | 28 23 24 20 2e 20 32 34 |nt 5] 3 |(#$ . 24|
|00000a80| 33 32 29 20 6e 69 6c 5d | 29 0a 23 40 35 39 20 4d |32) nil]|).#@59 M|
|00000a90| 6f 76 65 20 66 6f 72 77 | 61 72 64 20 61 6e 64 20 |ove forw|ard and |
|00000aa0| 64 6f 77 6e 20 6f 6e 65 | 20 6c 65 76 65 6c 20 69 |down one| level i|
|00000ab0| 6e 20 74 68 65 20 65 6c | 65 6d 65 6e 74 20 73 74 |n the el|ement st|
|00000ac0| 72 75 63 74 75 72 65 2e | 1f 0a 28 64 65 66 61 6c |ructure.|..(defal|
|00000ad0| 69 61 73 20 27 73 67 6d | 6c 2d 64 6f 77 6e 2d 65 |ias 'sgm|l-down-e|
|00000ae0| 6c 65 6d 65 6e 74 20 23 | 5b 6e 69 6c 20 22 c0 60 |lement #|[nil ".`|
|00000af0| c1 20 5c 22 1a c3 5c 6e | c4 48 21 ab 84 c5 c6 21 |. \"..\n|.H!....!|
|00000b00| 88 c7 5c 6e 21 62 88 c8 | c9 5c 6e 21 ab 85 5c 6e |..\n!b..|.\n!..\n|
|00000b10| ca 48 aa 81 5c 6e 21 29 | 87 22 20 5b 73 67 6d 6c |.H..\n!)|." [sgml|
|00000b20| 2d 66 69 6e 64 2d 65 6c | 65 6d 65 6e 74 2d 61 66 |-find-el|ement-af|
|00000b30| 74 65 72 20 73 67 6d 6c | 2d 6c 61 73 74 2d 65 6c |ter sgml|-last-el|
|00000b40| 65 6d 65 6e 74 20 74 6f | 20 73 67 6d 6c 2d 73 74 |ement to| sgml-st|
|00000b50| 72 69 63 74 2d 65 70 6f | 73 2d 70 20 31 20 65 72 |rict-epo|s-p 1 er|
|00000b60| 72 6f 72 20 22 53 75 62 | 2d 65 6c 65 6d 65 6e 74 |ror "Sub|-element|
|00000b70| 20 69 6e 20 6f 74 68 65 | 72 20 65 6e 74 69 74 79 | in othe|r entity|
|00000b80| 22 20 73 67 6d 6c 2d 65 | 6c 65 6d 65 6e 74 2d 73 |" sgml-e|lement-s|
|00000b90| 74 61 67 2d 65 6e 64 20 | 73 67 6d 6c 2d 73 65 74 |tag-end |sgml-set|
|00000ba0| 2d 6c 61 73 74 2d 65 6c | 65 6d 65 6e 74 20 73 67 |-last-el|ement sg|
|00000bb0| 6d 6c 2d 65 6c 65 6d 65 | 6e 74 2d 65 6d 70 74 79 |ml-eleme|nt-empty|
|00000bc0| 20 35 5d 20 33 20 28 23 | 24 20 2e 20 32 37 30 33 | 5] 3 (#|$ . 2703|
|00000bd0| 29 20 6e 69 6c 5d 29 0a | 23 40 34 30 20 4b 69 6c |) nil]).|#@40 Kil|
|00000be0| 6c 20 74 68 65 20 65 6c | 65 6d 65 6e 74 20 66 6f |l the el|ement fo|
|00000bf0| 6c 6c 6f 77 69 6e 67 20 | 74 68 65 20 63 75 72 73 |llowing |the curs|
|00000c00| 6f 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |or...(de|falias '|
|00000c10| 73 67 6d 6c 2d 6b 69 6c | 6c 2d 65 6c 65 6d 65 6e |sgml-kil|l-elemen|
|00000c20| 74 20 23 5b 6e 69 6c 20 | 22 c0 20 88 09 ab 84 c2 |t #[nil |". .....|
|00000c30| c3 21 88 c4 60 c5 c6 60 | 21 21 5c 22 87 22 20 5b |.!..`..`|!!\"." [|
|00000c40| 73 67 6d 6c 2d 70 61 72 | 73 65 2d 74 6f 2d 68 65 |sgml-par|se-to-he|
|00000c50| 72 65 20 73 67 6d 6c 2d | 6d 61 72 6b 75 70 2d 74 |re sgml-|markup-t|
|00000c60| 79 70 65 20 65 72 72 6f | 72 20 22 50 6f 69 6e 74 |ype erro|r "Point|
|00000c70| 20 69 73 20 69 6e 73 69 | 64 65 20 6d 61 72 6b 75 | is insi|de marku|
|00000c80| 70 22 20 6b 69 6c 6c 2d | 72 65 67 69 6f 6e 20 73 |p" kill-|region s|
|00000c90| 67 6d 6c 2d 65 6c 65 6d | 65 6e 74 2d 65 6e 64 20 |gml-elem|ent-end |
|00000ca0| 73 67 6d 6c 2d 66 69 6e | 64 2d 65 6c 65 6d 65 6e |sgml-fin|d-elemen|
|00000cb0| 74 2d 61 66 74 65 72 5d | 20 35 20 28 23 24 20 2e |t-after]| 5 (#$ .|
|00000cc0| 20 33 30 33 37 29 20 22 | 2a 22 5d 29 0a 23 40 37 | 3037) "|*"]).#@7|
|00000cd0| 39 20 49 6e 74 65 72 63 | 68 61 6e 67 65 20 65 6c |9 Interc|hange el|
|00000ce0| 65 6d 65 6e 74 20 62 65 | 66 6f 72 65 20 70 6f 69 |ement be|fore poi|
|00000cf0| 6e 74 20 77 69 74 68 20 | 65 6c 65 6d 65 6e 74 20 |nt with |element |
|00000d00| 61 66 74 65 72 20 70 6f | 69 6e 74 2c 20 6c 65 61 |after po|int, lea|
|00000d10| 76 65 20 70 6f 69 6e 74 | 20 61 66 74 65 72 2e 1f |ve point| after..|
|00000d20| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 67 6d 6c |.(defali|as 'sgml|
|00000d30| 2d 74 72 61 6e 73 70 6f | 73 65 2d 65 6c 65 6d 65 |-transpo|se-eleme|
|00000d40| 6e 74 20 23 5b 6e 69 6c | 20 22 c0 60 21 c1 60 21 |nt #[nil| ".`!.`!|
|00000d50| c2 89 89 1b 1c 1d 1e 06 | 1e 07 c8 0e 06 21 62 88 |........|.....!b.|
|00000d60| c9 20 13 60 ca 0e 06 21 | 7b 14 60 ca 0e 06 21 7c |. .`...!|{.`...!||
|00000d70| 88 c8 0e 07 21 62 88 60 | ca 0e 07 21 7b 15 60 ca |....!b.`|...!{.`.|
|00000d80| 0e 07 21 7c 88 cb 0c 21 | 88 0b 62 88 0d 63 88 cc |..!|...!|..b..c..|
|00000d90| cd 21 2d 87 22 20 5b 73 | 67 6d 6c 2d 66 69 6e 64 |.!-." [s|gml-find|
|00000da0| 2d 70 72 65 76 69 6f 75 | 73 2d 65 6c 65 6d 65 6e |-previou|s-elemen|
|00000db0| 74 20 73 67 6d 6c 2d 66 | 69 6e 64 2d 65 6c 65 6d |t sgml-f|ind-elem|
|00000dc0| 65 6e 74 2d 61 66 74 65 | 72 20 6e 69 6c 20 6d 32 |ent-afte|r nil m2|
|00000dd0| 20 73 32 20 73 31 20 6e | 65 78 74 20 70 72 65 20 | s2 s1 n|ext pre |
|00000de0| 73 67 6d 6c 2d 65 6c 65 | 6d 65 6e 74 2d 73 74 61 |sgml-ele|ment-sta|
|00000df0| 72 74 20 70 6f 69 6e 74 | 2d 6d 61 72 6b 65 72 20 |rt point|-marker |
|00000e00| 73 67 6d 6c 2d 65 6c 65 | 6d 65 6e 74 2d 65 6e 64 |sgml-ele|ment-end|
|00000e10| 20 69 6e 73 65 72 74 2d | 62 65 66 6f 72 65 2d 6d | insert-|before-m|
|00000e20| 61 72 6b 65 72 73 20 73 | 67 6d 6c 2d 6d 65 73 73 |arkers s|gml-mess|
|00000e30| 61 67 65 20 22 22 5d 20 | 35 20 28 23 24 20 2e 20 |age ""] |5 (#$ . |
|00000e40| 33 32 38 32 29 20 22 2a | 22 5d 29 0a 23 40 33 30 |3282) "*|"]).#@30|
|00000e50| 20 53 65 74 20 6d 61 72 | 6b 20 61 66 74 65 72 20 | Set mar|k after |
|00000e60| 6e 65 78 74 20 65 6c 65 | 6d 65 6e 74 2e 1f 0a 28 |next ele|ment...(|
|00000e70| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 6d |defalias| 'sgml-m|
|00000e80| 61 72 6b 2d 65 6c 65 6d | 65 6e 74 20 23 5b 6e 69 |ark-elem|ent #[ni|
|00000e90| 6c 20 22 c0 c1 c2 60 21 | 21 c3 c4 23 87 22 20 5b |l "...`!|!..#." [|
|00000ea0| 70 75 73 68 2d 6d 61 72 | 6b 20 73 67 6d 6c 2d 65 |push-mar|k sgml-e|
|00000eb0| 6c 65 6d 65 6e 74 2d 65 | 6e 64 20 73 67 6d 6c 2d |lement-e|nd sgml-|
|00000ec0| 66 69 6e 64 2d 65 6c 65 | 6d 65 6e 74 2d 61 66 74 |find-ele|ment-aft|
|00000ed0| 65 72 20 6e 69 6c 20 74 | 5d 20 34 20 28 23 24 20 |er nil t|] 4 (#$ |
|00000ee0| 2e 20 33 36 36 35 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 3665) |nil]).#@|
|00000ef0| 37 37 20 53 65 74 20 6d | 61 72 6b 20 61 74 20 65 |77 Set m|ark at e|
|00000f00| 6e 64 20 6f 66 20 63 75 | 72 72 65 6e 74 20 65 6c |nd of cu|rrent el|
|00000f10| 65 6d 65 6e 74 2c 20 61 | 6e 64 20 6c 65 61 76 65 |ement, a|nd leave|
|00000f20| 20 70 6f 69 6e 74 20 62 | 65 66 6f 72 65 20 63 75 | point b|efore cu|
|00000f30| 72 72 65 6e 74 20 65 6c | 65 6d 65 6e 74 2e 1f 0a |rrent el|ement...|
|00000f40| 28 64 65 66 61 6c 69 61 | 73 20 27 73 67 6d 6c 2d |(defalia|s 'sgml-|
|00000f50| 6d 61 72 6b 2d 63 75 72 | 72 65 6e 74 2d 65 6c 65 |mark-cur|rent-ele|
|00000f60| 6d 65 6e 74 20 23 5b 6e | 69 6c 20 22 c0 60 21 19 |ment #[n|il ".`!.|
|00000f70| c2 09 21 62 88 c3 c4 09 | 21 c5 c6 23 29 87 22 20 |..!b....|!..#)." |
|00000f80| 5b 73 67 6d 6c 2d 66 69 | 6e 64 2d 65 6c 65 6d 65 |[sgml-fi|nd-eleme|
|00000f90| 6e 74 2d 6f 66 20 65 6c | 20 73 67 6d 6c 2d 65 6c |nt-of el| sgml-el|
|00000fa0| 65 6d 65 6e 74 2d 73 74 | 61 72 74 20 70 75 73 68 |ement-st|art push|
|00000fb0| 2d 6d 61 72 6b 20 73 67 | 6d 6c 2d 65 6c 65 6d 65 |-mark sg|ml-eleme|
|00000fc0| 6e 74 2d 65 6e 64 20 6e | 69 6c 20 74 5d 20 34 20 |nt-end n|il t] 4 |
|00000fd0| 28 23 24 20 2e 20 33 38 | 32 37 29 20 6e 69 6c 5d |(#$ . 38|27) nil]|
|00000fe0| 29 0a 23 40 31 33 34 20 | 52 65 70 6c 61 63 65 20 |).#@134 |Replace |
|00000ff0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00001000| 63 75 72 72 65 6e 74 20 | 65 6c 65 6d 65 6e 74 20 |current |element |
|00001010| 77 69 74 68 20 61 20 6e | 65 77 20 6e 61 6d 65 2e |with a n|ew name.|
|00001020| 0a 45 76 65 6e 74 75 61 | 6c 20 61 74 74 72 69 62 |.Eventua|l attrib|
|00001030| 75 74 65 73 20 6f 66 20 | 74 68 65 20 63 75 72 72 |utes of |the curr|
|00001040| 65 6e 74 20 65 6c 65 6d | 65 6e 74 20 77 69 6c 6c |ent elem|ent will|
|00001050| 20 62 65 20 74 72 61 6e | 73 6c 61 74 65 64 20 69 | be tran|slated i|
|00001060| 66 20 0a 70 6f 73 73 69 | 62 6c 65 2e 1f 0a 28 64 |f .possi|ble...(d|
|00001070| 65 66 61 6c 69 61 73 20 | 27 73 67 6d 6c 2d 63 68 |efalias |'sgml-ch|
|00001080| 61 6e 67 65 2d 65 6c 65 | 6d 65 6e 74 2d 6e 61 6d |ange-ele|ment-nam|
|00001090| 65 20 23 5b 28 67 69 29 | 20 22 08 ab 85 08 c1 6b |e #[(gi)| ".....k|
|000010a0| ab 84 c2 c3 21 88 c4 60 | 21 1d c6 0d 21 1e 07 c8 |....!..`|!...!...|
|000010b0| 0d 21 1e 09 ca 0d 21 ac | 92 cb 0d 21 62 88 cc 0d |.!....!.|...!b...|
|000010c0| cd 48 5b 21 88 ce cf 08 | 21 21 88 d0 0d 21 62 88 |.H[!....|!!...!b.|
|000010d0| cc 0d d1 48 21 88 ce d2 | 08 21 21 88 d3 75 88 c4 |...H!...|.!!..u..|
|000010e0| 60 21 1e 14 c8 0e 14 21 | 1e 15 d6 0e 07 0e 09 0e |`!.....!|........|
|000010f0| 15 23 1e 17 d8 0e 17 0e | 15 5c 22 2e 06 87 22 20 |.#......|.\"..." |
|00001100| 5b 67 69 20 22 22 20 65 | 72 72 6f 72 20 22 49 6c |[gi "" e|rror "Il|
|00001110| 6c 65 67 61 6c 20 6e 61 | 6d 65 22 20 73 67 6d 6c |legal na|me" sgml|
|00001120| 2d 66 69 6e 64 2d 65 6c | 65 6d 65 6e 74 2d 6f 66 |-find-el|ement-of|
|00001130| 20 65 6c 65 6d 65 6e 74 | 20 73 67 6d 6c 2d 65 6c | element| sgml-el|
|00001140| 65 6d 65 6e 74 2d 61 74 | 74 72 69 62 75 74 65 2d |ement-at|tribute-|
|00001150| 73 70 65 63 69 66 69 63 | 61 74 69 6f 6e 2d 6c 69 |specific|ation-li|
|00001160| 73 74 20 61 74 74 73 70 | 65 63 20 73 67 6d 6c 2d |st attsp|ec sgml-|
|00001170| 65 6c 65 6d 65 6e 74 2d | 61 74 74 6c 69 73 74 20 |element-|attlist |
|00001180| 6f 6c 64 61 74 74 6c 69 | 73 74 20 73 67 6d 6c 2d |oldattli|st sgml-|
|00001190| 65 6c 65 6d 65 6e 74 2d | 65 6d 70 74 79 20 73 67 |element-|empty sg|
|000011a0| 6d 6c 2d 65 6c 65 6d 65 | 6e 74 2d 65 6e 64 20 64 |ml-eleme|nt-end d|
|000011b0| 65 6c 65 74 65 2d 63 68 | 61 72 20 34 20 74 65 6d |elete-ch|ar 4 tem|
|000011c0| 70 6f 2d 70 72 6f 63 65 | 73 73 2d 61 6e 64 2d 69 |po-proce|ss-and-i|
|000011d0| 6e 73 65 72 74 2d 73 74 | 72 69 6e 67 20 73 67 6d |nsert-st|ring sgm|
|000011e0| 6c 2d 65 6e 64 2d 74 61 | 67 2d 6f 66 20 73 67 6d |l-end-ta|g-of sgm|
|000011f0| 6c 2d 65 6c 65 6d 65 6e | 74 2d 73 74 61 72 74 20 |l-elemen|t-start |
|00001200| 33 20 73 67 6d 6c 2d 73 | 74 61 72 74 2d 74 61 67 |3 sgml-s|tart-tag|
|00001210| 2d 6f 66 20 2d 31 20 6e | 65 77 65 6c 20 6e 65 77 |-of -1 n|ewel new|
|00001220| 61 74 74 6c 69 73 74 20 | 73 67 6d 6c 2d 74 72 61 |attlist |sgml-tra|
|00001230| 6e 73 6c 61 74 65 2d 61 | 74 74 72 69 62 75 74 65 |nslate-a|ttribute|
|00001240| 2d 73 70 65 63 69 66 69 | 63 61 74 69 6f 6e 2d 6c |-specifi|cation-l|
|00001250| 69 73 74 20 6e 65 77 61 | 73 6c 20 73 67 6d 6c 2d |ist newa|sl sgml-|
|00001260| 69 6e 73 65 72 74 2d 61 | 74 74 72 69 62 75 74 65 |insert-a|ttribute|
|00001270| 73 5d 20 34 20 28 23 24 | 20 2e 20 34 30 37 32 29 |s] 4 (#$| . 4072)|
|00001280| 20 28 6c 69 73 74 20 28 | 6c 65 74 20 28 28 65 6c | (list (|let ((el|
|00001290| 20 28 73 67 6d 6c 2d 66 | 69 6e 64 2d 65 6c 65 6d | (sgml-f|ind-elem|
|000012a0| 65 6e 74 2d 6f 66 20 28 | 70 6f 69 6e 74 29 29 29 |ent-of (|point)))|
|000012b0| 29 20 28 67 6f 74 6f 2d | 63 68 61 72 20 28 73 67 |) (goto-|char (sg|
|000012c0| 6d 6c 2d 65 6c 65 6d 65 | 6e 74 2d 73 74 61 72 74 |ml-eleme|nt-start|
|000012d0| 20 65 6c 29 29 20 28 73 | 67 6d 6c 2d 72 65 61 64 | el)) (s|gml-read|
|000012e0| 2d 65 6c 65 6d 65 6e 74 | 2d 6e 61 6d 65 20 28 66 |-element|-name (f|
|000012f0| 6f 72 6d 61 74 20 22 43 | 68 61 6e 67 65 20 25 73 |ormat "C|hange %s|
|00001300| 20 74 6f 3a 20 22 20 28 | 73 67 6d 6c 2d 65 6c 65 | to: " (|sgml-ele|
|00001310| 6d 65 6e 74 2d 6e 61 6d | 65 20 65 6c 29 29 29 29 |ment-nam|e el))))|
|00001320| 29 5d 29 0a 23 40 31 36 | 35 20 54 72 61 6e 73 6c |)]).#@16|5 Transl|
|00001330| 61 74 65 20 61 74 74 72 | 69 62 75 74 65 20 73 70 |ate attr|ibute sp|
|00001340| 65 63 69 66 69 63 61 74 | 69 6f 6e 20 66 72 6f 6d |ecificat|ion from|
|00001350| 20 6f 6e 65 20 65 6c 65 | 6d 65 6e 74 20 74 79 70 | one ele|ment typ|
|00001360| 65 20 74 6f 20 61 6e 6f | 74 68 65 72 2e 0a 49 6e |e to ano|ther..In|
|00001370| 70 75 74 20 61 74 74 72 | 69 62 75 74 65 20 76 61 |put attr|ibute va|
|00001380| 6c 75 65 73 20 69 6e 20 | 56 41 4c 55 45 53 20 75 |lues in |VALUES u|
|00001390| 73 69 6e 67 20 61 74 74 | 6c 69 73 74 20 46 52 4f |sing att|list FRO|
|000013a0| 4d 20 69 73 20 74 72 61 | 6e 73 6c 61 74 65 64 20 |M is tra|nslated |
|000013b0| 69 6e 74 6f 0a 61 20 6c | 69 73 74 20 75 73 69 6e |into.a l|ist usin|
|000013c0| 67 20 61 74 74 6c 69 73 | 74 20 54 4f 2e 1f 0a 28 |g attlis|t TO...(|
|000013d0| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 74 |defalias| 'sgml-t|
|000013e0| 72 61 6e 73 6c 61 74 65 | 2d 61 74 74 72 69 62 75 |ranslate|-attribu|
|000013f0| 74 65 2d 73 70 65 63 69 | 66 69 63 61 74 69 6f 6e |te-speci|fication|
|00001400| 2d 6c 69 73 74 20 23 5b | 28 76 61 6c 75 65 73 20 |-list #[|(values |
|00001410| 66 72 6f 6d 20 74 6f 29 | 20 22 c0 c1 c0 1a 1b 1c |from to)| "......|
|00001420| 0d 1e 06 c0 1e 07 c0 1e | 08 c0 1e 09 0e 06 3a ab |........|......:.|
|00001430| f1 0e 06 40 16 07 ca cb | 0e 07 21 0e 0c 5c 22 16 |...@....|..!..\".|
|00001440| 08 ca cb 0e 07 21 0e 0d | 5c 22 16 09 ce 0e 08 21 |.....!..|\".....!|
|00001450| cf 61 ab 97 d0 0e 0d cf | 5c 22 89 12 ab 8e d1 d2 |.a......|\"......|
|00001460| 5c 6e 21 d3 0e 07 21 5c | 22 0c 42 14 aa b1 ce 0e |\n!...!\|".B.....|
|00001470| 08 21 ce 0e 09 21 6b ab | 87 0e 07 0c 42 14 aa 9f |.!...!k.|....B...|
|00001480| 0e 09 ab 8f d4 d5 cb 0e | 07 21 5c 22 88 0e 07 0c |........|.!\"....|
|00001490| 42 14 aa 8c d4 d6 cb 0e | 07 21 d3 0e 07 21 23 88 |B.......|.!...!#.|
|000014a0| 0e 06 41 89 16 06 aa 0c | 2c 0c 2b 87 22 20 5b 6e |..A.....|,.+." [n|
|000014b0| 69 6c 20 74 20 74 65 6d | 20 73 67 6d 6c 2d 73 68 |il t tem| sgml-sh|
|000014c0| 6f 77 2d 77 61 72 6e 69 | 6e 67 73 20 6e 65 77 2d |ow-warni|ngs new-|
|000014d0| 76 61 6c 75 65 73 20 76 | 61 6c 75 65 73 20 47 38 |values v|alues G8|
|000014e0| 37 39 38 39 20 61 74 74 | 73 70 65 63 20 66 72 6f |7989 att|spec fro|
|000014f0| 6d 2d 64 65 63 6c 20 74 | 6f 2d 64 65 63 6c 20 73 |m-decl t|o-decl s|
|00001500| 67 6d 6c 2d 6c 6f 6f 6b | 75 70 2d 61 74 74 64 65 |gml-look|up-attde|
|00001510| 63 6c 20 73 67 6d 6c 2d | 61 74 74 73 70 65 63 2d |cl sgml-|attspec-|
|00001520| 6e 61 6d 65 20 66 72 6f | 6d 20 74 6f 20 73 67 6d |name fro|m to sgm|
|00001530| 6c 2d 61 74 74 64 65 63 | 6c 2d 64 65 63 6c 61 72 |l-attdec|l-declar|
|00001540| 65 64 2d 76 61 6c 75 65 | 20 69 64 20 73 67 6d 6c |ed-value| id sgml|
|00001550| 2d 61 74 74 72 69 62 75 | 74 65 2d 77 69 74 68 2d |-attribu|te-with-|
|00001560| 64 65 63 6c 61 72 65 64 | 2d 76 61 6c 75 65 20 73 |declared|-value s|
|00001570| 67 6d 6c 2d 6d 61 6b 65 | 2d 61 74 74 73 70 65 63 |gml-make|-attspec|
|00001580| 20 73 67 6d 6c 2d 61 74 | 74 64 65 63 6c 2d 6e 61 | sgml-at|tdecl-na|
|00001590| 6d 65 20 73 67 6d 6c 2d | 61 74 74 73 70 65 63 2d |me sgml-|attspec-|
|000015a0| 61 74 74 76 61 6c 20 73 | 67 6d 6c 2d 6c 6f 67 2d |attval s|gml-log-|
|000015b0| 77 61 72 6e 69 6e 67 20 | 22 41 74 74 72 69 62 75 |warning |"Attribu|
|000015c0| 74 65 20 25 73 20 68 61 | 73 20 6e 65 77 20 64 65 |te %s ha|s new de|
|000015d0| 63 6c 61 72 65 64 2d 76 | 61 6c 75 65 22 20 22 43 |clared-v|alue" "C|
|000015e0| 61 6e 27 74 20 74 72 61 | 6e 73 6c 61 74 65 20 61 |an't tra|nslate a|
|000015f0| 74 74 72 69 62 75 74 65 | 20 25 73 20 3d 20 25 73 |ttribute| %s = %s|
|00001600| 22 5d 20 36 20 28 23 24 | 20 2e 20 34 39 30 36 29 |"] 6 (#$| . 4906)|
|00001610| 5d 29 0a 23 40 33 35 20 | 52 65 6d 6f 76 65 20 74 |]).#@35 |Remove t|
|00001620| 61 67 73 20 66 72 6f 6d | 20 63 75 72 72 65 6e 74 |ags from| current|
|00001630| 20 65 6c 65 6d 65 6e 74 | 2e 1f 0a 28 64 65 66 61 | element|...(defa|
|00001640| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 75 6e 74 61 67 |lias 'sg|ml-untag|
|00001650| 2d 65 6c 65 6d 65 6e 74 | 20 23 5b 6e 69 6c 20 22 |-element| #[nil "|
|00001660| c0 60 21 19 c2 09 c3 48 | 21 ac 87 c2 09 c4 48 21 |.`!....H|!.....H!|
|00001670| ab 84 c5 c6 21 88 c7 09 | 21 62 88 c8 09 c9 48 21 |....!...|!b....H!|
|00001680| 88 ca 09 21 62 88 c8 09 | cb 48 21 29 87 22 20 5b |...!b...|.H!)." [|
|00001690| 73 67 6d 6c 2d 66 69 6e | 64 2d 65 6c 65 6d 65 6e |sgml-fin|d-elemen|
|000016a0| 74 2d 6f 66 20 65 6c 20 | 73 67 6d 6c 2d 73 74 72 |t-of el |sgml-str|
|000016b0| 69 63 74 2d 65 70 6f 73 | 2d 70 20 31 20 32 20 65 |ict-epos|-p 1 2 e|
|000016c0| 72 72 6f 72 20 22 43 75 | 72 72 65 6e 74 20 65 6c |rror "Cu|rrent el|
|000016d0| 65 6d 65 6e 74 20 68 61 | 73 20 73 6f 6d 65 20 74 |ement ha|s some t|
|000016e0| 61 67 20 69 6e 73 69 64 | 65 20 61 6e 20 65 6e 74 |ag insid|e an ent|
|000016f0| 69 74 79 20 72 65 66 65 | 72 65 6e 63 65 22 20 73 |ity refe|rence" s|
|00001700| 67 6d 6c 2d 65 6c 65 6d | 65 6e 74 2d 65 74 61 67 |gml-elem|ent-etag|
|00001710| 2d 73 74 61 72 74 20 64 | 65 6c 65 74 65 2d 63 68 |-start d|elete-ch|
|00001720| 61 72 20 34 20 73 67 6d | 6c 2d 65 6c 65 6d 65 6e |ar 4 sgm|l-elemen|
|00001730| 74 2d 73 74 61 72 74 20 | 33 5d 20 33 20 28 23 24 |t-start |3] 3 (#$|
|00001740| 20 2e 20 35 36 35 36 29 | 20 22 2a 22 5d 29 0a 23 | . 5656)| "*"]).#|
|00001750| 40 35 39 20 4b 69 6c 6c | 20 6e 65 78 74 20 74 61 |@59 Kill| next ta|
|00001760| 67 2c 20 6d 61 72 6b 75 | 70 20 64 65 63 6c 61 72 |g, marku|p declar|
|00001770| 61 74 69 6f 6e 20 6f 72 | 20 70 72 6f 63 65 73 73 |ation or| process|
|00001780| 20 69 6e 73 74 72 75 63 | 74 69 6f 6e 2e 1f 0a 28 | instruc|tion...(|
|00001790| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 6b |defalias| 'sgml-k|
|000017a0| 69 6c 6c 2d 6d 61 72 6b | 75 70 20 23 5b 6e 69 6c |ill-mark|up #[nil|
|000017b0| 20 22 60 18 c1 20 1a c3 | 0c 21 88 c5 8e c6 1e 07 | "`.. ..|.!......|
|000017c0| c8 c9 c6 77 88 88 29 60 | 16 5c 6e cb cc 21 ac 96 |...w..)`|.\n..!..|
|000017d0| cd 67 61 ab 8e ce 60 54 | 66 61 ab 87 cf 75 88 d0 |.ga...`T|fa...u..|
|000017e0| 20 ac 83 d1 20 88 d2 08 | 60 5c 22 2b 87 22 20 5b | ... ...|`\"+." [|
|000017f0| 73 74 61 72 74 20 73 79 | 6e 74 61 78 2d 74 61 62 |start sy|ntax-tab|
|00001800| 6c 65 20 6e 6f 72 6d 61 | 6c 2d 73 79 6e 74 61 78 |le norma|l-syntax|
|00001810| 2d 74 61 62 6c 65 20 73 | 65 74 2d 73 79 6e 74 61 |-table s|et-synta|
|00001820| 78 2d 74 61 62 6c 65 20 | 73 67 6d 6c 2d 70 61 72 |x-table |sgml-par|
|00001830| 73 65 72 2d 73 79 6e 74 | 61 78 20 28 28 73 65 74 |ser-synt|ax ((set|
|00001840| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 6e 6f |-syntax-|table no|
|00001850| 72 6d 61 6c 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |rmal-syn|tax-tabl|
|00001860| 65 29 29 20 6e 69 6c 20 | 73 68 6f 72 74 6d 61 70 |e)) nil |shortmap|
|00001870| 20 30 20 22 20 09 5c 6e | 0d 22 20 73 67 6d 6c 2d | 0 " .\n|." sgml-|
|00001880| 6d 61 72 6b 75 70 2d 73 | 74 61 72 74 20 73 67 6d |markup-s|tart sgm|
|00001890| 6c 2d 70 61 72 73 65 2d | 6d 61 72 6b 75 70 2d 64 |l-parse-|markup-d|
|000018a0| 65 63 6c 61 72 61 74 69 | 6f 6e 20 69 67 6e 6f 72 |eclarati|on ignor|
|000018b0| 65 20 3f 5c 3c 20 3f 5c | 3f 20 32 20 73 67 6d 6c |e ?\< ?\|? 2 sgml|
|000018c0| 2d 64 6f 2d 70 72 6f 63 | 65 73 73 69 6e 67 2d 69 |-do-proc|essing-i|
|000018d0| 6e 73 74 72 75 63 74 69 | 6f 6e 20 73 67 6d 6c 2d |nstructi|on sgml-|
|000018e0| 73 6b 69 70 2d 74 61 67 | 20 6b 69 6c 6c 2d 72 65 |skip-tag| kill-re|
|000018f0| 67 69 6f 6e 5d 20 33 20 | 28 23 24 20 2e 20 35 39 |gion] 3 |(#$ . 59|
|00001900| 37 32 29 20 22 2a 22 5d | 29 0a 23 40 31 35 35 20 |72) "*"]|).#@155 |
|00001910| 48 69 64 65 20 28 6f 72 | 20 69 66 20 70 72 65 66 |Hide (or| if pref|
|00001920| 69 78 61 72 67 20 75 6e | 68 69 64 65 29 20 72 65 |ixarg un|hide) re|
|00001930| 67 69 6f 6e 2e 0a 49 66 | 20 63 61 6c 6c 65 64 20 |gion..If| called |
|00001940| 66 72 6f 6d 20 61 20 70 | 72 6f 67 72 61 6d 20 66 |from a p|rogram f|
|00001950| 69 72 73 74 20 74 77 6f | 20 61 72 67 75 6d 65 6e |irst two| argumen|
|00001960| 74 73 20 61 72 65 20 73 | 74 61 72 74 20 61 6e 64 |ts are s|tart and|
|00001970| 20 65 6e 64 20 6f 66 0a | 72 65 67 69 6f 6e 2e 20 | end of.|region. |
|00001980| 41 6e 64 20 6f 70 74 69 | 6f 6e 61 6c 20 74 68 69 |And opti|onal thi|
|00001990| 72 64 20 61 72 67 75 6d | 65 6e 74 20 74 72 75 65 |rd argum|ent true|
|000019a0| 20 75 6e 68 69 64 65 73 | 2e 1f 0a 28 64 65 66 61 | unhides|...(defa|
|000019b0| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 66 6f 6c 64 2d |lias 'sg|ml-fold-|
|000019c0| 72 65 67 69 6f 6e 20 23 | 5b 28 62 65 67 20 65 6e |region #|[(beg en|
|000019d0| 64 20 26 6f 70 74 69 6f | 6e 61 6c 20 75 6e 68 69 |d &optio|nal unhi|
|000019e0| 64 65 29 20 22 c0 20 c1 | c2 89 89 1b 1c 1d 1e 06 |de) ". .|........|
|000019f0| 1e 07 c1 16 08 c9 8e ca | 0e 0b 0e 0c 0e 0d ab 83 |........|........|
|00001a00| ce aa 81 cf 0e 0d ab 83 | cf aa 81 ce d0 25 2e 06 |........|.....%..|
|00001a10| 87 22 20 5b 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |." [buff|er-modif|
|00001a20| 69 65 64 2d 70 20 74 20 | 6e 69 6c 20 61 66 74 65 |ied-p t |nil afte|
|00001a30| 72 2d 63 68 61 6e 67 65 | 2d 66 75 6e 63 74 69 6f |r-change|-functio|
|00001a40| 6e 20 62 65 66 6f 72 65 | 2d 63 68 61 6e 67 65 2d |n before|-change-|
|00001a50| 66 75 6e 63 74 69 6f 6e | 20 62 75 66 66 65 72 2d |function| buffer-|
|00001a60| 72 65 61 64 2d 6f 6e 6c | 79 20 69 6e 68 69 62 69 |read-onl|y inhibi|
|00001a70| 74 2d 72 65 61 64 2d 6f | 6e 6c 79 20 6d 70 20 73 |t-read-o|nly mp s|
|00001a80| 65 6c 65 63 74 69 76 65 | 2d 64 69 73 70 6c 61 79 |elective|-display|
|00001a90| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 ab | ((byte-|code "..|
|00001aa0| 84 c1 5c 6e 21 88 c1 87 | 22 20 5b 73 67 6d 6c 2d |..\n!...|" [sgml-|
|00001ab0| 62 75 67 67 79 2d 73 75 | 62 73 74 2d 63 68 61 72 |buggy-su|bst-char|
|00001ac0| 2d 69 6e 2d 72 65 67 69 | 6f 6e 20 73 65 74 2d 62 |-in-regi|on set-b|
|00001ad0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00001ae0| 20 6d 70 5d 20 32 29 29 | 20 73 75 62 73 74 2d 63 | mp] 2))| subst-c|
|00001af0| 68 61 72 2d 69 6e 2d 72 | 65 67 69 6f 6e 20 62 65 |har-in-r|egion be|
|00001b00| 67 20 65 6e 64 20 75 6e | 68 69 64 65 20 3f 5c 72 |g end un|hide ?\r|
|00001b10| 20 3f 5c 6e 20 6e 6f 75 | 6e 64 6f 5d 20 36 20 28 | ?\n nou|ndo] 6 (|
|00001b20| 23 24 20 2e 20 36 34 31 | 36 29 20 22 72 5c 6e 50 |#$ . 641|6) "r\nP|
|00001b30| 22 5d 29 0a 23 40 31 32 | 31 20 46 6f 6c 64 20 74 |"]).#@12|1 Fold t|
|00001b40| 68 65 20 6c 69 6e 65 73 | 20 63 6f 6d 70 72 69 73 |he lines| compris|
|00001b50| 69 6e 67 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ing the |current |
|00001b60| 65 6c 65 6d 65 6e 74 2c | 20 6c 65 61 76 69 6e 67 |element,| leaving|
|00001b70| 20 74 68 65 20 66 69 72 | 73 74 20 6c 69 6e 65 20 | the fir|st line |
|00001b80| 76 69 73 69 62 6c 65 2e | 0a 54 68 69 73 20 75 73 |visible.|.This us|
|00001b90| 65 73 20 74 68 65 20 73 | 65 6c 65 63 74 69 76 65 |es the s|elective|
|00001ba0| 20 64 69 73 70 6c 61 79 | 20 66 65 61 74 75 72 65 | display| feature|
|00001bb0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 67 |...(defa|lias 'sg|
|00001bc0| 6d 6c 2d 66 6f 6c 64 2d | 65 6c 65 6d 65 6e 74 20 |ml-fold-|element |
|00001bd0| 23 5b 6e 69 6c 20 22 c0 | 20 88 09 5c 6e 61 ab 8e |#[nil ".| ..\na..|
|00001be0| 0b ab 8b c4 0d 8a c6 60 | 21 88 60 29 5c 22 87 09 |.......`|!.`)\"..|
|00001bf0| 5c 6e 61 ab 95 c7 c8 21 | ab 90 c4 60 8a c9 ca 77 |\na....!|...`...w|
|00001c00| 88 c6 60 54 21 88 60 29 | 5c 22 87 cb 60 21 89 1e |..`T!.`)|\"..`!..|
|00001c10| 0c 5c 6e 61 ab 84 cd ce | 21 88 8a cf 0e 0c 21 62 |.\na....|!.....!b|
|00001c20| 88 0e 0c d0 48 d1 55 ab | 84 d2 ca 78 88 c4 d3 0e |....H.U.|...x....|
|00001c30| 0c 21 60 5c 22 2a 87 22 | 20 5b 73 67 6d 6c 2d 70 |.!`\"*."| [sgml-p|
|00001c40| 61 72 73 65 2d 74 6f 2d | 68 65 72 65 20 73 67 6d |arse-to-|here sgm|
|00001c50| 6c 2d 63 75 72 72 65 6e | 74 2d 74 72 65 65 20 73 |l-curren|t-tree s|
|00001c60| 67 6d 6c 2d 74 6f 70 2d | 74 72 65 65 20 73 67 6d |gml-top-|tree sgm|
|00001c70| 6c 2d 6d 61 72 6b 75 70 | 2d 74 79 70 65 20 73 67 |l-markup|-type sg|
|00001c80| 6d 6c 2d 66 6f 6c 64 2d | 72 65 67 69 6f 6e 20 73 |ml-fold-|region s|
|00001c90| 67 6d 6c 2d 6d 61 72 6b | 75 70 2d 73 74 61 72 74 |gml-mark|up-start|
|00001ca0| 20 73 67 6d 6c 2d 70 61 | 72 73 65 2d 74 6f 20 6c | sgml-pa|rse-to l|
|00001cb0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 20 2a 3c 21 22 |ooking-a|t " *<!"|
|00001cc0| 20 22 20 09 22 20 6e 69 | 6c 20 73 67 6d 6c 2d 66 | " ." ni|l sgml-f|
|00001cd0| 69 6e 64 2d 65 6c 65 6d | 65 6e 74 2d 6f 66 20 65 |ind-elem|ent-of e|
|00001ce0| 6c 20 65 72 72 6f 72 20 | 22 4e 6f 20 65 6c 65 6d |l error |"No elem|
|00001cf0| 65 6e 74 20 68 65 72 65 | 22 20 73 67 6d 6c 2d 65 |ent here|" sgml-e|
|00001d00| 6c 65 6d 65 6e 74 2d 65 | 6e 64 20 34 20 30 20 22 |lement-e|nd 4 0 "|
|00001d10| 20 09 5c 6e 22 20 73 67 | 6d 6c 2d 65 6c 65 6d 65 | .\n" sg|ml-eleme|
|00001d20| 6e 74 2d 73 74 61 72 74 | 5d 20 35 20 28 23 24 20 |nt-start|] 5 (#$ |
|00001d30| 2e 20 36 39 37 30 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 6970) |nil]).#@|
|00001d40| 31 31 39 20 46 6f 6c 64 | 20 61 6c 6c 20 65 6c 65 |119 Fold| all ele|
|00001d50| 6d 65 6e 74 73 20 63 75 | 72 72 65 6e 74 20 65 6c |ments cu|rrent el|
|00001d60| 65 6d 65 6e 74 73 20 63 | 6f 6e 74 65 6e 74 2c 20 |ements c|ontent, |
|00001d70| 6c 65 61 76 69 6e 67 20 | 74 68 65 20 66 69 72 73 |leaving |the firs|
|00001d80| 74 20 6c 69 6e 65 73 20 | 76 69 73 69 62 6c 65 2e |t lines |visible.|
|00001d90| 0a 54 68 69 73 20 75 73 | 65 73 20 74 68 65 20 73 |.This us|es the s|
|00001da0| 65 6c 65 63 74 69 76 65 | 20 64 69 73 70 6c 61 79 |elective| display|
|00001db0| 20 66 65 61 74 75 72 65 | 2e 1f 0a 28 64 65 66 61 | feature|...(defa|
|00001dc0| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 66 6f 6c 64 2d |lias 'sg|ml-fold-|
|00001dd0| 73 75 62 65 6c 65 6d 65 | 6e 74 20 23 5b 6e 69 6c |subeleme|nt #[nil|
|00001de0| 20 22 c0 60 21 19 c2 09 | 21 89 1b ad 91 c4 c5 0b | ".`!...|!.......|
|00001df0| 21 c6 0b 21 5c 22 88 c7 | 0b 21 89 13 ac 70 c8 2a |!..!\"..|.!...p.*|
|00001e00| 87 22 20 5b 73 67 6d 6c | 2d 66 69 6e 64 2d 65 6c |." [sgml|-find-el|
|00001e10| 65 6d 65 6e 74 2d 6f 66 | 20 65 6c 20 73 67 6d 6c |ement-of| el sgml|
|00001e20| 2d 65 6c 65 6d 65 6e 74 | 2d 63 6f 6e 74 65 6e 74 |-element|-content|
|00001e30| 20 63 20 73 67 6d 6c 2d | 66 6f 6c 64 2d 72 65 67 | c sgml-|fold-reg|
|00001e40| 69 6f 6e 20 73 67 6d 6c | 2d 65 6c 65 6d 65 6e 74 |ion sgml|-element|
|00001e50| 2d 73 74 61 72 74 20 73 | 67 6d 6c 2d 65 6c 65 6d |-start s|gml-elem|
|00001e60| 65 6e 74 2d 65 6e 64 20 | 73 67 6d 6c 2d 65 6c 65 |ent-end |sgml-ele|
|00001e70| 6d 65 6e 74 2d 6e 65 78 | 74 20 6e 69 6c 5d 20 35 |ment-nex|t nil] 5|
|00001e80| 20 28 23 24 20 2e 20 37 | 34 39 32 29 20 6e 69 6c | (#$ . 7|492) nil|
|00001e90| 5d 29 0a 23 40 33 36 20 | 53 68 6f 77 20 68 69 64 |]).#@36 |Show hid|
|00001ea0| 64 65 6e 20 6c 69 6e 65 | 73 20 69 6e 20 63 75 72 |den line|s in cur|
|00001eb0| 72 65 6e 74 20 6c 69 6e | 65 2e 1f 0a 28 64 65 66 |rent lin|e...(def|
|00001ec0| 61 6c 69 61 73 20 27 73 | 67 6d 6c 2d 75 6e 66 6f |alias 's|gml-unfo|
|00001ed0| 6c 64 2d 6c 69 6e 65 20 | 23 5b 6e 69 6c 20 22 60 |ld-line |#[nil "`|
|00001ee0| 18 c1 79 88 c2 20 88 c3 | 7f 88 c4 20 88 c5 60 c6 |..y.. ..|... ..`.|
|00001ef0| 20 c7 23 88 08 62 29 87 | 22 20 5b 6f 70 20 30 20 | .#..b).|" [op 0 |
|00001f00| 70 75 73 68 2d 6d 61 72 | 6b 20 6e 69 6c 20 65 78 |push-mar|k nil ex|
|00001f10| 63 68 61 6e 67 65 2d 70 | 6f 69 6e 74 2d 61 6e 64 |change-p|oint-and|
|00001f20| 2d 6d 61 72 6b 20 73 67 | 6d 6c 2d 66 6f 6c 64 2d |-mark sg|ml-fold-|
|00001f30| 72 65 67 69 6f 6e 20 6d | 61 72 6b 20 75 6e 68 69 |region m|ark unhi|
|00001f40| 64 65 5d 20 34 20 28 23 | 24 20 2e 20 37 38 33 32 |de] 4 (#|$ . 7832|
|00001f50| 29 20 6e 69 6c 5d 29 0a | 23 40 34 33 20 53 68 6f |) nil]).|#@43 Sho|
|00001f60| 77 20 61 6c 6c 20 68 69 | 64 64 65 6e 20 6c 69 6e |w all hi|dden lin|
|00001f70| 65 73 20 69 6e 20 63 75 | 72 72 65 6e 74 20 65 6c |es in cu|rrent el|
|00001f80| 65 6d 65 6e 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ement...|(defalia|
|00001f90| 73 20 27 73 67 6d 6c 2d | 75 6e 66 6f 6c 64 2d 65 |s 'sgml-|unfold-e|
|00001fa0| 6c 65 6d 65 6e 74 20 23 | 5b 6e 69 6c 20 22 c0 60 |lement #|[nil ".`|
|00001fb0| 21 19 c2 c3 09 21 c4 09 | 21 c5 23 29 87 22 20 5b |!....!..|!.#)." [|
|00001fc0| 73 67 6d 6c 2d 66 69 6e | 64 2d 65 6c 65 6d 65 6e |sgml-fin|d-elemen|
|00001fd0| 74 2d 6f 66 20 65 6c 65 | 6d 65 6e 74 20 73 67 6d |t-of ele|ment sgm|
|00001fe0| 6c 2d 66 6f 6c 64 2d 72 | 65 67 69 6f 6e 20 73 67 |l-fold-r|egion sg|
|00001ff0| 6d 6c 2d 65 6c 65 6d 65 | 6e 74 2d 73 74 61 72 74 |ml-eleme|nt-start|
|00002000| 20 73 67 6d 6c 2d 65 6c | 65 6d 65 6e 74 2d 65 6e | sgml-el|ement-en|
|00002010| 64 20 75 6e 66 6f 6c 64 | 5d 20 34 20 28 23 24 20 |d unfold|] 4 (#$ |
|00002020| 2e 20 38 30 32 39 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 8029) |nil]).#@|
|00002030| 34 34 20 41 73 20 73 67 | 6d 6c 2d 66 6f 6c 64 2d |44 As sg|ml-fold-|
|00002040| 73 75 62 65 6c 65 6d 65 | 6e 74 2c 20 62 75 74 20 |subeleme|nt, but |
|00002050| 75 6e 66 6f 6c 64 20 66 | 69 72 73 74 2e 1f 0a 28 |unfold f|irst...(|
|00002060| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 65 |defalias| 'sgml-e|
|00002070| 78 70 61 6e 64 2d 65 6c | 65 6d 65 6e 74 20 23 5b |xpand-el|ement #[|
|00002080| 6e 69 6c 20 22 c0 20 88 | c1 20 87 22 20 5b 73 67 |nil ". .|. ." [sg|
|00002090| 6d 6c 2d 75 6e 66 6f 6c | 64 2d 65 6c 65 6d 65 6e |ml-unfol|d-elemen|
|000020a0| 74 20 73 67 6d 6c 2d 66 | 6f 6c 64 2d 73 75 62 65 |t sgml-f|old-sube|
|000020b0| 6c 65 6d 65 6e 74 5d 20 | 31 20 28 23 24 20 2e 20 |lement] |1 (#$ . |
|000020c0| 38 32 34 33 29 20 6e 69 | 6c 5d 29 0a 23 40 33 34 |8243) ni|l]).#@34|
|000020d0| 20 53 68 6f 77 20 61 6c | 6c 20 68 69 64 64 65 6e | Show al|l hidden|
|000020e0| 20 6c 69 6e 65 73 20 69 | 6e 20 62 75 66 66 65 72 | lines i|n buffer|
|000020f0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 67 |...(defa|lias 'sg|
|00002100| 6d 6c 2d 75 6e 66 6f 6c | 64 2d 61 6c 6c 20 23 5b |ml-unfol|d-all #[|
|00002110| 6e 69 6c 20 22 c0 65 64 | c1 23 87 22 20 5b 73 67 |nil ".ed|.#." [sg|
|00002120| 6d 6c 2d 66 6f 6c 64 2d | 72 65 67 69 6f 6e 20 75 |ml-fold-|region u|
|00002130| 6e 66 6f 6c 64 5d 20 34 | 20 28 23 24 20 2e 20 38 |nfold] 4| (#$ . 8|
|00002140| 34 30 31 29 20 6e 69 6c | 5d 29 0a 23 40 32 32 34 |401) nil|]).#@224|
|00002150| 20 49 6e 64 65 6e 74 20 | 6c 69 6e 65 2c 20 63 61 | Indent |line, ca|
|00002160| 6c 6c 69 6e 67 20 70 61 | 72 73 65 72 20 74 6f 20 |lling pa|rser to |
|00002170| 64 65 74 65 72 6d 69 6e | 65 20 6c 65 76 65 6c 20 |determin|e level |
|00002180| 75 6e 6c 65 73 73 20 43 | 4f 4c 20 6f 72 20 45 4c |unless C|OL or EL|
|00002190| 45 4d 45 4e 54 0a 69 73 | 20 67 69 76 65 6e 2e 20 |EMENT.is| given. |
|000021a0| 20 49 66 20 43 4f 4c 20 | 69 73 20 67 69 76 65 6e | If COL |is given|
|000021b0| 20 69 74 20 73 68 6f 75 | 6c 64 20 62 65 20 74 68 | it shou|ld be th|
|000021c0| 65 20 63 6f 6c 75 6d 6e | 20 74 6f 20 69 6e 64 65 |e column| to inde|
|000021d0| 6e 74 20 74 6f 2e 20 20 | 49 66 0a 45 4c 45 4d 45 |nt to.  |If.ELEME|
|000021e0| 4e 54 20 69 73 20 67 69 | 76 65 6e 20 69 74 20 73 |NT is gi|ven it s|
|000021f0| 68 6f 75 6c 64 20 62 65 | 20 61 20 70 61 72 73 65 |hould be| a parse|
|00002200| 20 74 72 65 65 20 6e 6f | 64 65 2c 20 66 72 6f 6d | tree no|de, from|
|00002210| 20 77 68 69 63 68 20 74 | 68 65 20 6c 65 76 65 6c | which t|he level|
|00002220| 0a 69 73 20 64 65 74 65 | 72 6d 69 6e 65 64 2e 1f |.is dete|rmined..|
|00002230| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 67 6d 6c |.(defali|as 'sgml|
|00002240| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 23 5b 28 |-indent-|line #[(|
|00002250| 26 6f 70 74 69 6f 6e 61 | 6c 20 63 6f 6c 20 65 6c |&optiona|l col el|
|00002260| 65 6d 65 6e 74 29 20 22 | 08 85 92 00 c1 20 1a c3 |ement) "|..... ..|
|00002270| 20 88 0c ac 8b 0d ac 88 | c6 1e 07 c6 c8 8d 29 15 | .......|......).|
|00002280| 0d 0e 09 61 ab 85 ca 15 | 5c 6e 62 88 0d ab d1 cb |...a....|\nb.....|
|00002290| 20 1e 0c cd 0e 0e 21 88 | cf 8e d0 20 d1 20 1e 12 | .....!.|... . ..|
|000022a0| 1e 13 d4 d5 0e 13 ac 84 | 0e 12 ab 85 0d d6 48 aa |........|......H.|
|000022b0| 81 0d 21 0e 17 d8 d9 24 | ac a5 0e 1a ac 8e db 0e |..!....$|........|
|000022c0| 13 ab 85 0d d6 48 aa 81 | 0d 21 ac 93 08 0e 13 ac |.....H..|.!......|
|000022d0| 84 0e 12 ab 83 dc aa 81 | dd 0d de 48 5c 5c 5f 14 |........|...H\\_.|
|000022e0| 2c 0c ab 8e 0c 69 55 ac | 89 dd 79 88 df 20 88 0c |,....iU.|..y.. ..|
|000022f0| 6a 88 60 5c 6e 57 ab 83 | 5c 6e 62 88 0c 29 87 22 |j.`\nW..|\nb..)."|
|00002300| 20 5b 73 67 6d 6c 2d 69 | 6e 64 65 6e 74 2d 73 74 | [sgml-i|ndent-st|
|00002310| 65 70 20 70 6f 69 6e 74 | 2d 6d 61 72 6b 65 72 20 |ep point|-marker |
|00002320| 68 65 72 65 20 62 61 63 | 6b 2d 74 6f 2d 69 6e 64 |here bac|k-to-ind|
|00002330| 65 6e 74 61 74 69 6f 6e | 20 63 6f 6c 20 65 6c 65 |entation| col ele|
|00002340| 6d 65 6e 74 20 70 61 72 | 73 65 2d 65 72 72 6f 72 |ment par|se-error|
|00002350| 20 73 67 6d 6c 2d 74 68 | 72 6f 77 2d 6f 6e 2d 65 | sgml-th|row-on-e|
|00002360| 72 72 6f 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |rror (by|te-code |
|00002370| 22 6d ab 84 c0 60 21 87 | c1 60 21 87 22 20 5b 73 |"m...`!.|.`!." [s|
|00002380| 67 6d 6c 2d 66 69 6e 64 | 2d 63 6f 6e 74 65 78 74 |gml-find|-context|
|00002390| 2d 6f 66 20 73 67 6d 6c | 2d 66 69 6e 64 2d 65 6c |-of sgml|-find-el|
|000023a0| 65 6d 65 6e 74 2d 6f 66 | 5d 20 32 29 20 73 67 6d |ement-of|] 2) sgm|
|000023b0| 6c 2d 74 6f 70 2d 74 72 | 65 65 20 6e 69 6c 20 73 |l-top-tr|ee nil s|
|000023c0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6e 6f 72 6d |yntax-ta|ble norm|
|000023d0| 61 6c 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |al-synta|x-table |
|000023e0| 73 65 74 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |set-synt|ax-table|
|000023f0| 20 73 67 6d 6c 2d 70 61 | 72 73 65 72 2d 73 79 6e | sgml-pa|rser-syn|
|00002400| 74 61 78 20 28 28 73 65 | 74 2d 73 79 6e 74 61 78 |tax ((se|t-syntax|
|00002410| 2d 74 61 62 6c 65 20 6e | 6f 72 6d 61 6c 2d 73 79 |-table n|ormal-sy|
|00002420| 6e 74 61 78 2d 74 61 62 | 6c 65 29 29 20 73 67 6d |ntax-tab|le)) sgm|
|00002430| 6c 2d 69 73 2d 73 74 61 | 72 74 2d 74 61 67 20 73 |l-is-sta|rt-tag s|
|00002440| 67 6d 6c 2d 69 73 2d 65 | 6e 64 2d 74 61 67 20 65 |gml-is-e|nd-tag e|
|00002450| 74 61 67 20 73 74 61 67 | 20 6d 65 6d 62 65 72 2a |tag stag| member*|
|00002460| 20 73 67 6d 6c 2d 65 6c | 65 6d 65 6e 74 2d 67 69 | sgml-el|ement-gi|
|00002470| 20 35 20 73 67 6d 6c 2d | 69 6e 68 69 62 69 74 2d | 5 sgml-|inhibit-|
|00002480| 69 6e 64 65 6e 74 2d 74 | 61 67 73 20 3a 74 65 73 |indent-t|ags :tes|
|00002490| 74 20 65 71 75 61 6c 70 | 20 73 67 6d 6c 2d 69 6e |t equalp| sgml-in|
|000024a0| 64 65 6e 74 2d 64 61 74 | 61 20 73 67 6d 6c 2d 65 |dent-dat|a sgml-e|
|000024b0| 6c 65 6d 65 6e 74 2d 64 | 61 74 61 2d 70 20 2d 31 |lement-d|ata-p -1|
|000024c0| 20 30 20 36 20 64 65 6c | 65 74 65 2d 68 6f 72 69 | 0 6 del|ete-hori|
|000024d0| 7a 6f 6e 74 61 6c 2d 73 | 70 61 63 65 5d 20 35 20 |zontal-s|pace] 5 |
|000024e0| 28 23 24 20 2e 20 38 35 | 32 39 29 5d 29 0a 23 40 |(#$ . 85|29)]).#@|
|000024f0| 35 31 20 4d 6f 76 65 20 | 66 6f 72 77 61 72 64 20 |51 Move |forward |
|00002500| 74 6f 20 6e 65 78 74 20 | 70 6f 69 6e 74 20 77 68 |to next |point wh|
|00002510| 65 72 65 20 64 61 74 61 | 20 69 73 20 61 6c 6c 6f |ere data| is allo|
|00002520| 77 65 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |wed...(d|efalias |
|00002530| 27 73 67 6d 6c 2d 6e 65 | 78 74 2d 64 61 74 61 2d |'sgml-ne|xt-data-|
|00002540| 66 69 65 6c 64 20 23 5b | 6e 69 6c 20 22 6d ab 84 |field #[|nil "m..|
|00002550| c0 c1 21 88 c2 c3 20 1c | 1d 60 c6 0c 21 57 ab 82 |..!... .|.`..!W..|
|00002560| c7 14 0d c8 8d 2a 87 22 | 20 5b 65 72 72 6f 72 20 |.....*."| [error |
|00002570| 22 45 6e 64 20 6f 66 20 | 62 75 66 66 65 72 22 20 |"End of |buffer" |
|00002580| 6e 65 78 74 2d 64 61 74 | 61 20 73 67 6d 6c 2d 6c |next-dat|a sgml-l|
|00002590| 61 73 74 2d 65 6c 65 6d | 65 6e 74 20 61 76 6f 69 |ast-elem|ent avoi|
|000025a0| 64 2d 65 6c 20 73 67 6d | 6c 2d 74 68 72 6f 77 2d |d-el sgm|l-throw-|
|000025b0| 6f 6e 2d 77 61 72 6e 69 | 6e 67 20 73 67 6d 6c 2d |on-warni|ng sgml-|
|000025c0| 65 6c 65 6d 65 6e 74 2d | 73 74 61 67 2d 65 6e 64 |element-|stag-end|
|000025d0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|000025e0| 22 c0 60 54 21 88 67 c1 | 61 ac 85 c2 60 21 aa 81 |".`T!.g.|a...`!..|
|000025f0| 0b 89 14 0d 61 ac 6a c6 | 0c 21 ab 65 c7 20 87 22 |....a.j.|.!.e. ."|
|00002600| 20 5b 73 67 6d 6c 2d 70 | 61 72 73 65 2d 74 6f 20 | [sgml-p|arse-to |
|00002610| 3f 5c 3c 20 73 67 6d 6c | 2d 66 69 6e 64 2d 65 6c |?\< sgml|-find-el|
|00002620| 65 6d 65 6e 74 2d 6f 66 | 20 73 67 6d 6c 2d 63 75 |ement-of| sgml-cu|
|00002630| 72 72 65 6e 74 2d 74 72 | 65 65 20 73 67 6d 6c 2d |rrent-tr|ee sgml-|
|00002640| 6c 61 73 74 2d 65 6c 65 | 6d 65 6e 74 20 61 76 6f |last-ele|ment avo|
|00002650| 69 64 2d 65 6c 20 73 67 | 6d 6c 2d 65 6c 65 6d 65 |id-el sg|ml-eleme|
|00002660| 6e 74 2d 64 61 74 61 2d | 70 20 73 67 6d 6c 2d 73 |nt-data-|p sgml-s|
|00002670| 65 74 2d 6c 61 73 74 2d | 65 6c 65 6d 65 6e 74 5d |et-last-|element]|
|00002680| 20 33 29 5d 20 33 20 28 | 23 24 20 2e 20 39 34 35 | 3)] 3 (|#$ . 945|
|00002690| 39 29 20 6e 69 6c 5d 29 | 0a 23 40 37 33 20 4d 6f |9) nil])|.#@73 Mo|
|000026a0| 76 65 20 66 6f 72 77 61 | 72 64 20 74 6f 20 6e 65 |ve forwa|rd to ne|
|000026b0| 78 74 20 70 6f 69 6e 74 | 20 77 68 65 72 65 20 73 |xt point| where s|
|000026c0| 6f 6d 65 74 68 69 6e 67 | 20 69 73 20 61 6d 69 73 |omething| is amis|
|000026d0| 73 20 77 69 74 68 20 74 | 68 65 20 73 74 72 75 63 |s with t|he struc|
|000026e0| 74 75 72 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ture...(|defalias|
|000026f0| 20 27 73 67 6d 6c 2d 6e | 65 78 74 2d 74 72 6f 75 | 'sgml-n|ext-trou|
|00002700| 62 6c 65 2d 73 70 6f 74 | 20 23 5b 6e 69 6c 20 22 |ble-spot| #[nil "|
|00002710| c0 20 88 c1 60 21 88 c2 | 60 21 88 c3 1c c3 c5 8d |. ..`!..|`!......|
|00002720| ae 83 c6 c7 21 29 87 22 | 20 5b 70 75 73 68 2d 6d |....!)."| [push-m|
|00002730| 61 72 6b 20 73 67 6d 6c | 2d 6e 6f 74 65 2d 63 68 |ark sgml|-note-ch|
|00002740| 61 6e 67 65 2d 61 74 20 | 73 67 6d 6c 2d 70 61 72 |ange-at |sgml-par|
|00002750| 73 65 2d 74 6f 20 74 72 | 6f 75 62 6c 65 20 73 67 |se-to tr|ouble sg|
|00002760| 6d 6c 2d 74 68 72 6f 77 | 2d 6f 6e 2d 77 61 72 6e |ml-throw|-on-warn|
|00002770| 69 6e 67 20 28 73 67 6d | 6c 2d 70 61 72 73 65 2d |ing (sgm|l-parse-|
|00002780| 75 6e 74 69 6c 2d 65 6e | 64 2d 6f 66 20 6e 69 6c |until-en|d-of nil|
|00002790| 20 74 29 20 6d 65 73 73 | 61 67 65 20 22 4f 6b 22 | t) mess|age "Ok"|
|000027a0| 5d 20 32 20 28 23 24 20 | 2e 20 39 38 38 36 29 20 |] 2 (#$ |. 9886) |
|000027b0| 6e 69 6c 5d 29 0a 23 40 | 34 38 20 44 69 73 70 6c |nil]).#@|48 Displ|
|000027c0| 61 79 20 61 20 6c 69 73 | 74 20 6f 66 20 74 68 65 |ay a lis|t of the|
|000027d0| 20 63 6f 6e 74 65 78 74 | 75 61 6c 6c 79 20 76 61 | context|ually va|
|000027e0| 6c 69 64 20 74 61 67 73 | 2e 1f 0a 28 64 65 66 61 |lid tags|...(defa|
|000027f0| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 6c 69 73 74 2d |lias 'sg|ml-list-|
|00002800| 76 61 6c 69 64 2d 74 61 | 67 73 20 23 5b 6e 69 6c |valid-ta|gs #[nil|
|00002810| 20 22 c0 20 88 c1 5c 6e | 21 c3 0c c5 48 0e 06 5c | ". ..\n|!...H..\|
|00002820| 22 1e 07 1e 08 c9 90 ca | cb cc cd 5c 6e 21 ce 5c |".......|...\n!.\|
|00002830| 6e cf 48 21 ab 83 d0 aa | 81 d1 23 21 88 ca cb d2 |n.H!....|..#!....|
|00002840| d3 5c 6e cf 48 4a 57 ac | 87 0e 08 0e 14 61 ab 83 |.\n.HJW.|.....a..|
|00002850| d5 aa 8a 0e 08 3a ab 83 | d6 aa 82 0e 08 0e 08 0e |.....:..|........|
|00002860| 14 61 ab 83 d7 aa 81 d0 | 23 21 88 0e 07 ab 88 ca |.a......|#!......|
|00002870| cb d8 0e 07 5c 22 21 88 | 0e 19 1e 1a db 0e 1a 21 |....\"!.|.......!|
|00002880| 3f ae 84 dc 0e 1a 21 29 | ab ae ca dd 21 88 de 20 |?.....!)|....!.. |
|00002890| 1e 1f e0 1e 21 0e 1f 3a | ab 98 0e 1f 40 16 21 ca |....!..:|....@.!.|
|000028a0| e2 0e 21 21 21 88 ca e3 | 21 88 0e 1f 41 89 16 1f |..!!!...|!...A...|
|000028b0| aa 65 2a e4 20 88 aa 84 | ca e5 21 88 ca e6 21 88 |.e*. ...|..!...!.|
|000028c0| e7 e8 5c 6e 0e 19 23 91 | 2a 87 22 20 5b 73 67 6d |..\n..#.|*." [sgm|
|000028d0| 6c 2d 70 61 72 73 65 2d | 74 6f 2d 68 65 72 65 20 |l-parse-|to-here |
|000028e0| 73 67 6d 6c 2d 65 6c 65 | 6d 65 6e 74 2d 6d 6f 64 |sgml-ele|ment-mod|
|000028f0| 65 6c 20 73 67 6d 6c 2d | 63 75 72 72 65 6e 74 2d |el sgml-|current-|
|00002900| 74 72 65 65 20 73 67 6d | 6c 2d 6c 6f 6f 6b 75 70 |tree sgm|l-lookup|
|00002910| 2d 73 68 6f 72 74 72 65 | 66 2d 6e 61 6d 65 20 73 |-shortre|f-name s|
|00002920| 67 6d 6c 2d 64 74 64 2d | 69 6e 66 6f 20 34 20 73 |gml-dtd-|info 4 s|
|00002930| 67 6d 6c 2d 63 75 72 72 | 65 6e 74 2d 73 68 6f 72 |gml-curr|ent-shor|
|00002940| 74 6d 61 70 20 73 6d 61 | 70 2d 6e 61 6d 65 20 6d |tmap sma|p-name m|
|00002950| 6f 64 65 6c 20 22 2a 54 | 61 67 73 2a 22 20 70 72 |odel "*T|ags*" pr|
|00002960| 69 6e 63 20 66 6f 72 6d | 61 74 20 22 43 75 72 72 |inc form|at "Curr|
|00002970| 65 6e 74 20 65 6c 65 6d | 65 6e 74 3a 20 25 73 20 |ent elem|ent: %s |
|00002980| 20 25 73 5c 6e 22 20 73 | 67 6d 6c 2d 65 6c 65 6d | %s\n" s|gml-elem|
|00002990| 65 6e 74 2d 6e 61 6d 65 | 20 73 67 6d 6c 2d 65 6c |ent-name| sgml-el|
|000029a0| 74 79 70 65 2d 64 65 66 | 69 6e 65 64 20 30 20 22 |type-def|ined 0 "|
|000029b0| 22 20 22 5b 55 4e 44 45 | 46 49 4e 45 44 5d 22 20 |" "[UNDE|FINED]" |
|000029c0| 22 45 6c 65 6d 65 6e 74 | 20 63 6f 6e 74 65 6e 74 |"Element| content|
|000029d0| 3a 20 25 73 20 20 25 73 | 5c 6e 22 20 33 20 73 67 |: %s  %s|\n" 3 sg|
|000029e0| 6d 6c 2d 61 6e 79 20 22 | 6d 69 78 65 64 22 20 22 |ml-any "|mixed" "|
|000029f0| 65 6c 65 6d 65 6e 74 22 | 20 22 5b 41 4e 59 5d 22 |element"| "[ANY]"|
|00002a00| 20 22 43 75 72 72 65 6e | 74 20 73 68 6f 72 74 20 | "Curren|t short |
|00002a10| 72 65 66 65 72 65 6e 63 | 65 20 6d 61 70 3a 20 25 |referenc|e map: %|
|00002a20| 73 5c 6e 22 20 73 67 6d | 6c 2d 63 75 72 72 65 6e |s\n" sgm|l-curren|
|00002a30| 74 2d 73 74 61 74 65 20 | 73 74 61 74 65 20 73 67 |t-state |state sg|
|00002a40| 6d 6c 2d 6d 6f 64 65 6c | 2d 67 72 6f 75 70 2d 70 |ml-model|-group-p|
|00002a50| 20 73 67 6d 6c 2d 66 69 | 6e 61 6c 20 22 56 61 6c | sgml-fi|nal "Val|
|00002a60| 69 64 20 65 6e 64 2d 74 | 61 67 73 20 3a 20 22 20 |id end-t|ags : " |
|00002a70| 73 67 6d 6c 2d 63 75 72 | 72 65 6e 74 2d 6c 69 73 |sgml-cur|rent-lis|
|00002a80| 74 2d 6f 66 2d 65 6e 64 | 61 62 6c 65 2d 65 6c 74 |t-of-end|able-elt|
|00002a90| 79 70 65 73 20 47 38 37 | 39 39 34 20 6e 69 6c 20 |ypes G87|994 nil |
|00002aa0| 65 20 73 67 6d 6c 2d 65 | 6e 64 2d 74 61 67 2d 6f |e sgml-e|nd-tag-o|
|00002ab0| 66 20 22 20 22 20 74 65 | 72 70 72 69 20 22 43 75 |f " " te|rpri "Cu|
|00002ac0| 72 72 65 6e 74 20 65 6c | 65 6d 65 6e 74 20 63 61 |rrent el|ement ca|
|00002ad0| 6e 20 6e 6f 74 20 65 6e | 64 20 68 65 72 65 5c 6e |n not en|d here\n|
|00002ae0| 22 20 22 56 61 6c 69 64 | 20 73 74 61 72 74 2d 74 |" "Valid| start-t|
|00002af0| 61 67 73 5c 6e 22 20 73 | 67 6d 6c 2d 70 72 69 6e |ags\n" s|gml-prin|
|00002b00| 74 2d 76 61 6c 69 64 2d | 74 61 67 73 20 22 49 6e |t-valid-|tags "In|
|00002b10| 20 63 75 72 72 65 6e 74 | 20 65 6c 65 6d 65 6e 74 | current| element|
|00002b20| 3a 22 5d 20 39 20 28 23 | 24 20 2e 20 31 30 31 37 |:"] 9 (#|$ . 1017|
|00002b30| 31 29 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |1) nil])|.(defali|
|00002b40| 61 73 20 27 73 67 6d 6c | 2d 70 72 69 6e 74 2d 76 |as 'sgml|-print-v|
|00002b50| 61 6c 69 64 2d 74 61 67 | 73 20 23 5b 28 70 72 6f |alid-tag|s #[(pro|
|00002b60| 6d 70 74 20 74 72 65 65 | 20 73 74 61 74 65 20 26 |mpt tree| state &|
|00002b70| 6f 70 74 69 6f 6e 61 6c | 20 65 78 63 6c 75 64 65 |optional| exclude|
|00002b80| 20 6f 6d 69 74 74 65 64 | 2d 73 74 61 67 29 20 22 | omitted|-stag) "|
|00002b90| 08 3a ac 88 c1 c2 c3 0c | 08 23 21 87 c5 08 21 89 |.:......|.#!...!.|
|00002ba0| 1e 06 c7 0e 08 c9 08 21 | 5c 22 a4 1e 5c 6e 0e 0b |.......!|\"..\n..|
|00002bb0| cc 48 1e 0d ce 0e 0f 0e | 0b d0 48 5c 22 1e 11 0e |.H......|..H\"...|
|00002bc0| 0d ab 99 0e 0d 40 0e 5c | 6e 73 ac 89 0e 5c 6e 0e |.....@.\|ns...\n.|
|00002bd0| 0d 40 43 a4 16 5c 6e 0e | 0d 41 89 16 0d ac 67 0e |.@C..\n.|.A....g.|
|00002be0| 11 ab 91 c7 0e 11 40 0e | 5c 6e 5c 22 16 5c 6e 0e |......@.|\n\".\n.|
|00002bf0| 11 41 89 16 11 ac 6f d2 | 0e 5c 6e d3 5c 22 16 5c |.A....o.|.\n.\".\|
|00002c00| 6e d4 0c 0e 5c 6e 5c 22 | 88 0e 06 ab ae 0e 06 41 |n...\n\"|.......A|
|00002c10| ac a9 d5 0e 0b 0e 06 40 | 5c 22 1e 16 d7 0e 16 d8 |.......@|\"......|
|00002c20| 48 21 ab 97 d9 c2 da db | 0e 16 21 5c 22 0e 16 dc |H!......|..!\"...|
|00002c30| 0e 16 21 ce 0e 0f 0e 5c | 6e 5c 22 dd 25 88 29 0e |..!....\|n\".%.).|
|00002c40| 1d 3f ad ad 08 18 de 08 | 21 3f ae 83 df 08 21 29 |.?......|!?....!)|
|00002c50| ad 9f e0 0e 0b d8 48 21 | ad 97 d9 c2 da e1 0e 0b |......H!|........|
|00002c60| 21 5c 22 0e 0b e2 48 0e | 0b e3 48 ce 0e 0f 0e 5c |!\"...H.|..H....\|
|00002c70| 6e 5c 22 24 2c 87 22 20 | 5b 73 74 61 74 65 20 70 |n\"$,." |[state p|
|00002c80| 72 69 6e 63 20 66 6f 72 | 6d 61 74 20 22 25 73 20 |rinc for|mat "%s |
|00002c90| 28 69 6e 20 25 73 29 5c | 6e 22 20 70 72 6f 6d 70 |(in %s)\|n" promp|
|00002ca0| 74 20 73 67 6d 6c 2d 72 | 65 71 75 69 72 65 64 2d |t sgml-r|equired-|
|00002cb0| 74 6f 6b 65 6e 73 20 72 | 65 71 20 64 65 6c 71 20 |tokens r|eq delq |
|00002cc0| 73 67 6d 6c 2d 70 63 64 | 61 74 61 2d 74 6f 6b 65 |sgml-pcd|ata-toke|
|00002cd0| 6e 20 73 67 6d 6c 2d 6f | 70 74 69 6f 6e 61 6c 2d |n sgml-o|ptional-|
|00002ce0| 74 6f 6b 65 6e 73 20 65 | 6c 65 6d 73 20 74 72 65 |tokens e|lems tre|
|00002cf0| 65 20 38 20 69 6e 20 61 | 70 70 65 6e 64 20 65 78 |e 8 in a|ppend ex|
|00002d00| 63 6c 75 64 65 20 37 20 | 65 78 20 73 6f 72 74 20 |clude 7 |ex sort |
|00002d10| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 73 67 6d |string-l|essp sgm|
|00002d20| 6c 2d 70 72 69 6e 74 2d | 6c 69 73 74 2d 6f 66 2d |l-print-|list-of-|
|00002d30| 74 61 67 73 20 73 67 6d | 6c 2d 66 61 6b 65 2d 6f |tags sgm|l-fake-o|
|00002d40| 70 65 6e 2d 65 6c 65 6d | 65 6e 74 20 65 6c 20 73 |pen-elem|ent el s|
|00002d50| 67 6d 6c 2d 65 6c 74 79 | 70 65 2d 73 74 61 67 2d |gml-elty|pe-stag-|
|00002d60| 6f 70 74 69 6f 6e 61 6c | 20 30 20 73 67 6d 6c 2d |optional| 0 sgml-|
|00002d70| 70 72 69 6e 74 2d 76 61 | 6c 69 64 2d 74 61 67 73 |print-va|lid-tags|
|00002d80| 20 22 49 66 20 6f 6d 69 | 74 74 69 6e 67 20 25 73 | "If omi|tting %s|
|00002d90| 3a 22 20 73 67 6d 6c 2d | 73 74 61 72 74 2d 74 61 |:" sgml-|start-ta|
|00002da0| 67 2d 6f 66 20 73 67 6d | 6c 2d 65 6c 65 6d 65 6e |g-of sgm|l-elemen|
|00002db0| 74 2d 6d 6f 64 65 6c 20 | 6f 6d 69 74 74 65 64 2d |t-model |omitted-|
|00002dc0| 73 74 61 67 20 73 67 6d | 6c 2d 6d 6f 64 65 6c 2d |stag sgm|l-model-|
|00002dd0| 67 72 6f 75 70 2d 70 20 | 73 67 6d 6c 2d 66 69 6e |group-p |sgml-fin|
|00002de0| 61 6c 20 73 67 6d 6c 2d | 65 6c 74 79 70 65 2d 65 |al sgml-|eltype-e|
|00002df0| 74 61 67 2d 6f 70 74 69 | 6f 6e 61 6c 20 73 67 6d |tag-opti|onal sgm|
|00002e00| 6c 2d 65 6e 64 2d 74 61 | 67 2d 6f 66 20 35 20 39 |l-end-ta|g-of 5 9|
|00002e10| 5d 20 38 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 8]).(d|efalias |
|00002e20| 27 73 67 6d 6c 2d 70 72 | 69 6e 74 2d 6c 69 73 74 |'sgml-pr|int-list|
|00002e30| 2d 6f 66 2d 74 61 67 73 | 20 23 5b 28 70 72 6f 6d |-of-tags| #[(prom|
|00002e40| 70 74 20 6c 69 73 74 29 | 20 22 08 ad cf c1 5c 6e |pt list)| "....\n|
|00002e50| 21 88 5c 6e 47 c3 20 53 | 1c 1d 08 1e 06 c7 1e 08 |!.\nG. S|........|
|00002e60| c7 1e 09 0e 06 3a ab b2 | 0e 06 40 16 08 ca 0e 08 |.....:..|..@.....|
|00002e70| 21 16 09 0d 0e 09 47 5c | 5c cb 5c 5c 89 15 0c 59 |!.....G\|\.\\...Y|
|00002e80| ab 89 0e 09 47 cb 5c 5c | 15 cc 20 88 c1 cd 21 88 |....G.\\|.. ...!.|
|00002e90| c1 0e 09 21 88 0e 06 41 | 89 16 06 aa 4b 2b cc 20 |...!...A|....K+. |
|00002ea0| 2a 87 22 20 5b 6c 69 73 | 74 20 70 72 69 6e 63 20 |*." [lis|t princ |
|00002eb0| 70 72 6f 6d 70 74 20 66 | 72 61 6d 65 2d 77 69 64 |prompt f|rame-wid|
|00002ec0| 74 68 20 77 20 63 6f 6c | 20 47 38 37 39 39 35 20 |th w col| G87995 |
|00002ed0| 6e 69 6c 20 65 20 73 74 | 72 20 73 67 6d 6c 2d 73 |nil e st|r sgml-s|
|00002ee0| 74 61 72 74 2d 74 61 67 | 2d 6f 66 20 32 20 74 65 |tart-tag|-of 2 te|
|00002ef0| 72 70 72 69 20 22 20 20 | 22 5d 20 33 5d 29 0a 23 |rpri "  |"] 3]).#|
|00002f00| 40 35 35 20 44 69 73 70 | 6c 61 79 20 77 68 65 72 |@55 Disp|lay wher|
|00002f10| 65 20 74 68 65 20 63 75 | 72 73 6f 72 20 69 73 20 |e the cu|rsor is |
|00002f20| 69 6e 20 74 68 65 20 65 | 6c 65 6d 65 6e 74 20 68 |in the e|lement h|
|00002f30| 69 65 72 61 72 63 68 79 | 2e 1f 0a 28 64 65 66 61 |ierarchy|...(defa|
|00002f40| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 73 68 6f 77 2d |lias 'sg|ml-show-|
|00002f50| 63 6f 6e 74 65 78 74 20 | 23 5b 28 26 6f 70 74 69 |context |#[(&opti|
|00002f60| 6f 6e 61 6c 20 65 6c 65 | 6d 65 6e 74 29 20 22 08 |onal ele|ment) ".|
|00002f70| ae 82 c1 20 1a c3 5c 6e | 21 1c c5 c6 08 ac 84 0e |... ..\n|!.......|
|00002f80| 07 ae 93 c8 5c 6e c9 48 | 4a 57 ab 83 ca aa 88 0c |....\n.H|JW......|
|00002f90| 3a ac 83 0c aa 81 cb 5c | 6e 0e 0c 61 ab 83 cd aa |:......\|n..a....|
|00002fa0| 83 ce 5c 6e 21 23 2a 87 | 22 20 5b 65 6c 65 6d 65 |..\n!#*.|" [eleme|
|00002fb0| 6e 74 20 73 67 6d 6c 2d | 6c 61 73 74 2d 65 6c 65 |nt sgml-|last-ele|
|00002fc0| 6d 65 6e 74 20 65 6c 20 | 73 67 6d 6c 2d 65 6c 65 |ment el |sgml-ele|
|00002fd0| 6d 65 6e 74 2d 6d 6f 64 | 65 6c 20 6d 6f 64 65 6c |ment-mod|el model|
|00002fe0| 20 73 67 6d 6c 2d 6d 65 | 73 73 61 67 65 20 22 25 | sgml-me|ssage "%|
|00002ff0| 73 20 25 73 22 20 73 67 | 6d 6c 2d 6d 61 72 6b 75 |s %s" sg|ml-marku|
|00003000| 70 2d 74 79 70 65 20 33 | 20 30 20 22 23 50 43 44 |p-type 3| 0 "#PCD|
|00003010| 41 54 41 22 20 22 22 20 | 73 67 6d 6c 2d 74 6f 70 |ATA" "" |sgml-top|
|00003020| 2d 74 72 65 65 20 22 69 | 6e 20 65 6d 70 74 79 20 |-tree "i|n empty |
|00003030| 63 6f 6e 74 65 78 74 22 | 20 73 67 6d 6c 2d 65 6c |context"| sgml-el|
|00003040| 65 6d 65 6e 74 2d 63 6f | 6e 74 65 78 74 2d 73 74 |ement-co|ntext-st|
|00003050| 72 69 6e 67 5d 20 36 20 | 28 23 24 20 2e 20 31 32 |ring] 6 |(#$ . 12|
|00003060| 30 33 36 29 20 6e 69 6c | 5d 29 0a 23 40 34 33 20 |036) nil|]).#@43 |
|00003070| 44 69 73 70 6c 61 79 20 | 77 68 61 74 20 65 6c 65 |Display |what ele|
|00003080| 6d 65 6e 74 20 69 73 20 | 75 6e 64 65 72 20 74 68 |ment is |under th|
|00003090| 65 20 63 75 72 73 6f 72 | 2e 1f 0a 28 64 65 66 61 |e cursor|...(defa|
|000030a0| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 77 68 61 74 2d |lias 'sg|ml-what-|
|000030b0| 65 6c 65 6d 65 6e 74 20 | 23 5b 6e 69 6c 20 22 60 |element |#[nil "`|
|000030c0| 18 60 09 61 1a c3 0c 5c | 6e 5c 22 1d c6 1e 07 08 |.`.a...\|n\".....|
|000030d0| 62 88 c8 08 21 89 16 07 | ac 86 c9 ca cb 43 5c 22 |b...!...|.....C\"|
|000030e0| 88 cc cd 0e 07 0e 0e 61 | ab 83 cf aa 9d 60 d0 0e |.......a|.....`..|
|000030f0| 07 21 57 ab 83 d1 aa 92 | 60 d2 0e 07 21 59 ab 83 |.!W.....|`...!Y..|
|00003100| d3 aa 87 0d ab 83 d4 aa | 81 d5 d6 0e 07 21 23 2c |........|.....!#,|
|00003110| 87 22 20 5b 70 6f 73 20 | 73 67 6d 6c 2d 72 73 2d |." [pos |sgml-rs-|
|00003120| 69 67 6e 6f 72 65 2d 70 | 6f 73 20 6e 6f 62 6f 6c |ignore-p|os nobol|
|00003130| 20 73 67 6d 6c 2d 64 65 | 72 65 66 2d 73 68 6f 72 | sgml-de|ref-shor|
|00003140| 74 6d 61 70 20 73 67 6d | 6c 2d 63 75 72 72 65 6e |tmap sgm|l-curren|
|00003150| 74 2d 73 68 6f 72 74 6d | 61 70 20 73 72 65 66 20 |t-shortm|ap sref |
|00003160| 6e 69 6c 20 65 6c 20 73 | 67 6d 6c 2d 66 69 6e 64 |nil el s|gml-find|
|00003170| 2d 65 6c 65 6d 65 6e 74 | 2d 6f 66 20 73 69 67 6e |-element|-of sign|
|00003180| 61 6c 20 63 6c 2d 61 73 | 73 65 72 74 69 6f 6e 2d |al cl-as|sertion-|
|00003190| 66 61 69 6c 65 64 20 28 | 6e 6f 74 20 28 6e 75 6c |failed (|not (nul|
|000031a0| 6c 20 65 6c 29 29 20 6d | 65 73 73 61 67 65 20 22 |l el)) m|essage "|
|000031b0| 25 73 20 25 73 22 20 73 | 67 6d 6c 2d 74 6f 70 2d |%s %s" s|gml-top-|
|000031c0| 74 72 65 65 20 22 6f 75 | 74 73 69 64 65 20 64 6f |tree "ou|tside do|
|000031d0| 63 75 6d 65 6e 74 20 65 | 6c 65 6d 65 6e 74 22 20 |cument e|lement" |
|000031e0| 73 67 6d 6c 2d 65 6c 65 | 6d 65 6e 74 2d 73 74 61 |sgml-ele|ment-sta|
|000031f0| 67 2d 65 6e 64 20 22 73 | 74 61 72 74 2d 74 61 67 |g-end "s|tart-tag|
|00003200| 22 20 73 67 6d 6c 2d 65 | 6c 65 6d 65 6e 74 2d 65 |" sgml-e|lement-e|
|00003210| 74 61 67 2d 73 74 61 72 | 74 20 22 65 6e 64 2d 74 |tag-star|t "end-t|
|00003220| 61 67 22 20 22 73 68 6f | 72 74 72 65 66 22 20 22 |ag" "sho|rtref" "|
|00003230| 63 6f 6e 74 65 6e 74 22 | 20 73 67 6d 6c 2d 65 6c |content"| sgml-el|
|00003240| 65 6d 65 6e 74 2d 63 6f | 6e 74 65 78 74 2d 73 74 |ement-co|ntext-st|
|00003250| 72 69 6e 67 5d 20 36 20 | 28 23 24 20 2e 20 31 32 |ring] 6 |(#$ . 12|
|00003260| 34 30 30 29 20 6e 69 6c | 5d 29 0a 23 40 33 36 36 |400) nil|]).#@366|
|00003270| 20 49 6e 73 65 72 74 20 | 61 20 74 61 67 2c 20 72 | Insert |a tag, r|
|00003280| 65 61 64 69 6e 67 20 74 | 61 67 20 6e 61 6d 65 20 |eading t|ag name |
|00003290| 69 6e 20 6d 69 6e 69 62 | 75 66 66 65 72 20 77 69 |in minib|uffer wi|
|000032a0| 74 68 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2e 0a 49 |th compl|etion..I|
|000032b0| 66 20 74 68 65 20 76 61 | 72 69 61 62 6c 65 20 73 |f the va|riable s|
|000032c0| 67 6d 6c 2d 62 61 6c 61 | 6e 63 65 64 2d 74 61 67 |gml-bala|nced-tag|
|000032d0| 2d 65 64 69 74 20 69 73 | 20 74 2c 20 61 6c 73 6f |-edit is| t, also|
|000032e0| 20 69 6e 73 65 72 74 73 | 20 74 68 65 0a 63 6f 72 | inserts| the.cor|
|000032f0| 72 65 73 70 6f 6e 64 69 | 6e 67 20 65 6e 64 20 74 |respondi|ng end t|
|00003300| 61 67 2e 20 49 66 20 73 | 67 6d 6c 2d 6c 65 61 76 |ag. If s|gml-leav|
|00003310| 65 2d 70 6f 69 6e 74 2d | 61 66 74 65 72 2d 69 6e |e-point-|after-in|
|00003320| 73 65 72 74 20 69 73 20 | 74 2c 20 74 68 65 20 70 |sert is |t, the p|
|00003330| 6f 69 6e 74 0a 69 73 20 | 6c 65 66 74 20 61 66 74 |oint.is |left aft|
|00003340| 65 72 20 74 68 65 20 69 | 6e 73 65 72 74 65 64 20 |er the i|nserted |
|00003350| 74 61 67 28 73 29 2c 20 | 75 6e 6c 65 73 73 20 74 |tag(s), |unless t|
|00003360| 68 65 20 65 6c 65 6d 65 | 6e 74 20 68 61 73 20 73 |he eleme|nt has s|
|00003370| 6f 6d 20 72 65 71 75 69 | 72 65 64 0a 63 6f 6e 74 |om requi|red.cont|
|00003380| 65 6e 74 2e 20 20 49 66 | 20 73 67 6d 6c 2d 6c 65 |ent.  If| sgml-le|
|00003390| 61 76 65 2d 70 6f 69 6e | 74 2d 61 66 74 65 72 2d |ave-poin|t-after-|
|000033a0| 69 6e 73 65 72 74 20 69 | 73 20 6e 69 6c 20 74 68 |insert i|s nil th|
|000033b0| 65 20 70 6f 69 6e 74 20 | 69 73 20 6c 65 66 74 0a |e point |is left.|
|000033c0| 61 66 74 65 72 20 74 68 | 65 20 66 69 72 73 74 20 |after th|e first |
|000033d0| 74 61 67 20 69 6e 73 65 | 72 74 65 64 2e 1f 0a 28 |tag inse|rted...(|
|000033e0| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 69 |defalias| 'sgml-i|
|000033f0| 6e 73 65 72 74 2d 74 61 | 67 20 23 5b 28 74 61 67 |nsert-ta|g #[(tag|
|00003400| 20 26 6f 70 74 69 6f 6e | 61 6c 20 73 69 6c 65 6e | &option|al silen|
|00003410| 74 20 6e 6f 2d 6e 6c 2d | 61 66 74 65 72 29 20 22 |t no-nl-|after) "|
|00003420| c0 60 21 88 09 ab 86 c2 | c3 c4 43 5c 22 88 c5 c6 |.`!.....|..C\"...|
|00003430| 20 21 ac 94 c7 c8 78 88 | 6e ab 8a c9 ca 21 ab 88 | !....x.|n....!..|
|00003440| cb 20 88 aa 83 cc 63 88 | cd 0e 0e 21 88 cf 20 88 |. ....c.|...!.. .|
|00003450| 0e 10 ac 90 8a c5 c6 20 | 21 ac 88 6c ac 85 8a cc |....... |!..l....|
|00003460| 63 88 29 29 0e 11 ae 82 | d2 20 87 22 20 5b 73 67 |c.))....|. ." [sg|
|00003470| 6d 6c 2d 66 69 6e 64 2d | 63 6f 6e 74 65 78 74 2d |ml-find-|context-|
|00003480| 6f 66 20 73 67 6d 6c 2d | 6d 61 72 6b 75 70 2d 74 |of sgml-|markup-t|
|00003490| 79 70 65 20 73 69 67 6e | 61 6c 20 63 6c 2d 61 73 |ype sign|al cl-as|
|000034a0| 73 65 72 74 69 6f 6e 2d | 66 61 69 6c 65 64 20 28 |sertion-|failed (|
|000034b0| 6e 75 6c 6c 20 73 67 6d | 6c 2d 6d 61 72 6b 75 70 |null sgm|l-markup|
|000034c0| 2d 74 79 70 65 29 20 73 | 67 6d 6c 2d 65 6c 65 6d |-type) s|gml-elem|
|000034d0| 65 6e 74 2d 64 61 74 61 | 2d 70 20 73 67 6d 6c 2d |ent-data|-p sgml-|
|000034e0| 70 61 72 73 65 2d 74 6f | 2d 68 65 72 65 20 22 20 |parse-to|-here " |
|000034f0| 09 22 20 6e 69 6c 20 6c | 6f 6f 6b 69 6e 67 2d 61 |." nil l|ooking-a|
|00003500| 74 20 22 5e 5c 5c 73 2d | 2a 24 22 20 66 69 78 75 |t "^\\s-|*$" fixu|
|00003510| 70 2d 77 68 69 74 65 73 | 70 61 63 65 20 22 5c 6e |p-whites|pace "\n|
|00003520| 22 20 74 65 6d 70 6f 2d | 70 72 6f 63 65 73 73 2d |" tempo-|process-|
|00003530| 61 6e 64 2d 69 6e 73 65 | 72 74 2d 73 74 72 69 6e |and-inse|rt-strin|
|00003540| 67 20 74 61 67 20 73 67 | 6d 6c 2d 69 6e 64 65 6e |g tag sg|ml-inden|
|00003550| 74 2d 6c 69 6e 65 20 6e | 6f 2d 6e 6c 2d 61 66 74 |t-line n|o-nl-aft|
|00003560| 65 72 20 73 69 6c 65 6e | 74 20 73 67 6d 6c 2d 73 |er silen|t sgml-s|
|00003570| 68 6f 77 2d 63 6f 6e 74 | 65 78 74 5d 20 33 20 28 |how-cont|ext] 3 (|
|00003580| 23 24 20 2e 20 31 32 39 | 31 33 29 20 28 6c 69 73 |#$ . 129|13) (lis|
|00003590| 74 20 28 63 6f 6d 70 6c | 65 74 69 6e 67 2d 72 65 |t (compl|eting-re|
|000035a0| 61 64 20 22 54 61 67 3a | 20 22 20 28 73 67 6d 6c |ad "Tag:| " (sgml|
|000035b0| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 74 61 62 6c |-complet|ion-tabl|
|000035c0| 65 29 20 6e 69 6c 20 74 | 20 22 3c 22 29 29 5d 29 |e) nil t| "<"))])|
|000035d0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|000035e0| ac 82 c2 11 c1 0b 42 13 | c0 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|000035f0| 6e 64 70 20 73 67 6d 6c | 2d 6e 65 77 2d 61 74 74 |ndp sgml|-new-att|
|00003600| 72 69 62 75 74 65 2d 6c | 69 73 74 2d 66 75 6e 63 |ribute-l|ist-func|
|00003610| 74 69 6f 6e 20 73 67 6d | 6c 2d 64 65 66 61 75 6c |tion sgm|l-defaul|
|00003620| 74 2d 61 73 6c 20 63 75 | 72 72 65 6e 74 2d 6c 6f |t-asl cu|rrent-lo|
|00003630| 61 64 2d 6c 69 73 74 5d | 20 32 29 0a 23 40 36 38 |ad-list]| 2).#@68|
|00003640| 20 52 65 61 64 73 20 65 | 6c 65 6d 65 6e 74 20 6e | Reads e|lement n|
|00003650| 61 6d 65 20 66 72 6f 6d | 20 6d 69 6e 69 62 75 66 |ame from| minibuf|
|00003660| 66 65 72 20 61 6e 64 20 | 69 6e 73 65 72 74 73 20 |fer and |inserts |
|00003670| 73 74 61 72 74 20 61 6e | 64 20 65 6e 64 20 74 61 |start an|d end ta|
|00003680| 67 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |gs...(de|falias '|
|00003690| 73 67 6d 6c 2d 69 6e 73 | 65 72 74 2d 65 6c 65 6d |sgml-ins|ert-elem|
|000036a0| 65 6e 74 20 23 5b 28 6e | 61 6d 65 20 26 6f 70 74 |ent #[(n|ame &opt|
|000036b0| 69 6f 6e 61 6c 20 61 66 | 74 65 72 20 73 69 6c 65 |ional af|ter sile|
|000036c0| 6e 74 29 20 22 c0 89 89 | 19 1a 1b 0c 85 99 00 0c |nt) "...|........|
|000036d0| c5 6b 3f 85 99 00 c6 c7 | 0c 21 c8 5c 22 88 c9 75 |.k?.....|.!.\"..u|
|000036e0| 88 ca 60 21 12 cb 0e 0c | 5c 6e 21 cd 5c 6e 21 5c |..`!....|\n!.\n!\|
|000036f0| 22 88 ce 75 88 cf 5c 6e | 21 ac e7 0e 10 ab c2 0e |"..u..\n|!.......|
|00003700| 11 3a ab bd c0 1e 12 d3 | 0e 11 21 89 16 12 ab 99 |.:......|..!.....|
|00003710| 0e 12 41 ac 94 d4 0e 12 | 40 d5 89 23 16 12 0b ae |..A.....|@..#....|
|00003720| 82 0e 12 13 d6 20 88 aa | 5e 0e 12 ab 93 d7 63 88 |..... ..|^.....c.|
|00003730| 0e 18 ab 8c d9 da 0e 12 | 5c 22 63 88 db c0 5c 6e |........|\"c...\n|
|00003740| 5c 22 88 29 0b ae 81 60 | 13 0e 1c ab 83 d7 63 88 |\".)...`|......c.|
|00003750| c6 dd 0c 21 c8 5c 22 88 | 0e 1e ac 83 0b 62 88 0e |...!.\".|.....b..|
|00003760| 08 ac 83 df 20 88 0b 2b | 87 22 20 5b 6e 69 6c 20 |.... ..+|." [nil |
|00003770| 73 67 6d 6c 2d 73 68 6f | 77 2d 77 61 72 6e 69 6e |sgml-sho|w-warnin|
|00003780| 67 73 20 65 6c 65 6d 65 | 6e 74 20 6e 65 77 70 6f |gs eleme|nt newpo|
|00003790| 73 20 6e 61 6d 65 20 22 | 22 20 73 67 6d 6c 2d 69 |s name "|" sgml-i|
|000037a0| 6e 73 65 72 74 2d 74 61 | 67 20 73 67 6d 6c 2d 73 |nsert-ta|g sgml-s|
|000037b0| 74 61 72 74 2d 74 61 67 | 2d 6f 66 20 73 69 6c 65 |tart-tag|-of sile|
|000037c0| 6e 74 20 2d 31 20 73 67 | 6d 6c 2d 66 69 6e 64 2d |nt -1 sg|ml-find-|
|000037d0| 65 6c 65 6d 65 6e 74 2d | 6f 66 20 73 67 6d 6c 2d |element-|of sgml-|
|000037e0| 69 6e 73 65 72 74 2d 61 | 74 74 72 69 62 75 74 65 |insert-a|ttribute|
|000037f0| 73 20 73 67 6d 6c 2d 6e | 65 77 2d 61 74 74 72 69 |s sgml-n|ew-attri|
|00003800| 62 75 74 65 2d 6c 69 73 | 74 2d 66 75 6e 63 74 69 |bute-lis|t-functi|
|00003810| 6f 6e 20 73 67 6d 6c 2d | 65 6c 65 6d 65 6e 74 2d |on sgml-|element-|
|00003820| 61 74 74 6c 69 73 74 20 | 31 20 73 67 6d 6c 2d 65 |attlist |1 sgml-e|
|00003830| 6c 65 6d 65 6e 74 2d 65 | 6d 70 74 79 20 73 67 6d |lement-e|mpty sgm|
|00003840| 6c 2d 61 75 74 6f 2d 69 | 6e 73 65 72 74 2d 72 65 |l-auto-i|nsert-re|
|00003850| 71 75 69 72 65 64 2d 65 | 6c 65 6d 65 6e 74 73 20 |quired-e|lements |
|00003860| 73 67 6d 6c 2d 63 75 72 | 72 65 6e 74 2d 73 74 61 |sgml-cur|rent-sta|
|00003870| 74 65 20 74 65 6d 20 73 | 67 6d 6c 2d 72 65 71 75 |te tem s|gml-requ|
|00003880| 69 72 65 64 2d 74 6f 6b | 65 6e 73 20 73 67 6d 6c |ired-tok|ens sgml|
|00003890| 2d 69 6e 73 65 72 74 2d | 65 6c 65 6d 65 6e 74 20 |-insert-|element |
|000038a0| 74 20 73 67 6d 6c 2d 70 | 61 72 73 65 2d 74 6f 2d |t sgml-p|arse-to-|
|000038b0| 68 65 72 65 20 22 5c 6e | 22 20 73 67 6d 6c 2d 69 |here "\n|" sgml-i|
|000038c0| 6e 73 65 72 74 2d 6d 69 | 73 73 69 6e 67 2d 65 6c |nsert-mi|ssing-el|
|000038d0| 65 6d 65 6e 74 2d 63 6f | 6d 6d 65 6e 74 20 66 6f |ement-co|mment fo|
|000038e0| 72 6d 61 74 20 22 3c 21 | 2d 2d 20 6f 6e 65 20 6f |rmat "<!|-- one o|
|000038f0| 66 20 25 73 20 2d 2d 3e | 22 20 73 67 6d 6c 2d 69 |f %s -->|" sgml-i|
|00003900| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 73 67 6d 6c 2d |ndent-li|ne sgml-|
|00003910| 69 6e 73 65 72 74 2d 65 | 6e 64 2d 74 61 67 2d 6f |insert-e|nd-tag-o|
|00003920| 6e 2d 6e 65 77 2d 6c 69 | 6e 65 20 73 67 6d 6c 2d |n-new-li|ne sgml-|
|00003930| 65 6e 64 2d 74 61 67 2d | 6f 66 20 61 66 74 65 72 |end-tag-|of after|
|00003940| 20 73 67 6d 6c 2d 73 68 | 6f 77 2d 63 6f 6e 74 65 | sgml-sh|ow-conte|
|00003950| 78 74 5d 20 35 20 28 23 | 24 20 2e 20 31 33 38 38 |xt] 5 (#|$ . 1388|
|00003960| 39 29 20 28 6c 69 73 74 | 20 28 73 67 6d 6c 2d 72 |9) (list| (sgml-r|
|00003970| 65 61 64 2d 65 6c 65 6d | 65 6e 74 2d 6e 61 6d 65 |ead-elem|ent-name|
|00003980| 20 22 45 6c 65 6d 65 6e | 74 3a 20 22 29 20 73 67 | "Elemen|t: ") sg|
|00003990| 6d 6c 2d 6c 65 61 76 65 | 2d 70 6f 69 6e 74 2d 61 |ml-leave|-point-a|
|000039a0| 66 74 65 72 2d 69 6e 73 | 65 72 74 29 5d 29 0a 28 |fter-ins|ert)]).(|
|000039b0| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 64 |defalias| 'sgml-d|
|000039c0| 65 66 61 75 6c 74 2d 61 | 73 6c 20 23 5b 28 65 6c |efault-a|sl #[(el|
|000039d0| 65 6d 65 6e 74 29 20 22 | c0 09 21 1a c3 1c c3 1d |ement) "|..!.....|
|000039e0| 5c 6e 3a ab 9d 5c 6e 40 | 14 c6 c7 0c 21 c8 5c 22 |\n:..\n@|....!.\"|
|000039f0| ab 8c c9 ca 0c 21 cb 0c | c3 5c 22 5c 22 0d 42 15 |.....!..|.\"\".B.|
|00003a00| 5c 6e 41 89 12 aa 60 0d | 9f 2b 87 22 20 5b 73 67 |\nA...`.|.+." [sg|
|00003a10| 6d 6c 2d 65 6c 65 6d 65 | 6e 74 2d 61 74 74 6c 69 |ml-eleme|nt-attli|
|00003a20| 73 74 20 65 6c 65 6d 65 | 6e 74 20 47 38 37 39 39 |st eleme|nt G8799|
|00003a30| 36 20 6e 69 6c 20 61 74 | 74 64 65 63 6c 20 47 38 |6 nil at|tdecl G8|
|00003a40| 37 39 39 37 20 73 67 6d | 6c 2d 64 65 66 61 75 6c |7997 sgm|l-defaul|
|00003a50| 74 2d 76 61 6c 75 65 2d | 74 79 70 65 2d 70 20 73 |t-value-|type-p s|
|00003a60| 67 6d 6c 2d 61 74 74 64 | 65 63 6c 2d 64 65 66 61 |gml-attd|ecl-defa|
|00003a70| 75 6c 74 2d 76 61 6c 75 | 65 20 72 65 71 75 69 72 |ult-valu|e requir|
|00003a80| 65 64 20 73 67 6d 6c 2d | 6d 61 6b 65 2d 61 74 74 |ed sgml-|make-att|
|00003a90| 73 70 65 63 20 73 67 6d | 6c 2d 61 74 74 64 65 63 |spec sgm|l-attdec|
|00003aa0| 6c 2d 6e 61 6d 65 20 73 | 67 6d 6c 2d 72 65 61 64 |l-name s|gml-read|
|00003ab0| 2d 61 74 74 72 69 62 75 | 74 65 2d 76 61 6c 75 65 |-attribu|te-value|
|00003ac0| 5d 20 36 5d 29 0a 23 40 | 36 38 20 52 65 61 64 73 |] 6]).#@|68 Reads|
|00003ad0| 20 65 6c 65 6d 65 6e 74 | 20 6e 61 6d 65 20 66 72 | element| name fr|
|00003ae0| 6f 6d 20 6d 69 6e 69 62 | 75 66 66 65 72 20 61 6e |om minib|uffer an|
|00003af0| 64 20 69 6e 73 65 72 74 | 73 20 73 74 61 72 74 20 |d insert|s start |
|00003b00| 61 6e 64 20 65 6e 64 20 | 74 61 67 73 2e 1f 0a 28 |and end |tags...(|
|00003b10| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 74 |defalias| 'sgml-t|
|00003b20| 61 67 2d 72 65 67 69 6f | 6e 20 23 5b 28 65 6c 65 |ag-regio|n #[(ele|
|00003b30| 6d 65 6e 74 20 73 74 61 | 72 74 20 65 6e 64 29 20 |ment sta|rt end) |
|00003b40| 22 8a 08 ad 97 08 c1 6b | 3f ad 91 5c 6e 62 88 c3 |"......k|?..\nb..|
|00003b50| c4 08 21 21 88 0d 62 88 | c6 c7 08 21 21 29 87 22 |..!!..b.|...!!)."|
|00003b60| 20 5b 65 6c 65 6d 65 6e | 74 20 22 22 20 65 6e 64 | [elemen|t "" end|
|00003b70| 20 74 65 6d 70 6f 2d 70 | 72 6f 63 65 73 73 2d 61 | tempo-p|rocess-a|
|00003b80| 6e 64 2d 69 6e 73 65 72 | 74 2d 73 74 72 69 6e 67 |nd-inser|t-string|
|00003b90| 20 73 67 6d 6c 2d 65 6e | 64 2d 74 61 67 2d 6f 66 | sgml-en|d-tag-of|
|00003ba0| 20 73 74 61 72 74 20 73 | 67 6d 6c 2d 69 6e 73 65 | start s|gml-inse|
|00003bb0| 72 74 2d 74 61 67 20 73 | 67 6d 6c 2d 73 74 61 72 |rt-tag s|gml-star|
|00003bc0| 74 2d 74 61 67 2d 6f 66 | 5d 20 33 20 28 23 24 20 |t-tag-of|] 3 (#$ |
|00003bd0| 2e 20 31 35 30 35 31 29 | 20 28 6c 69 73 74 20 28 |. 15051)| (list (|
|00003be0| 73 61 76 65 2d 65 78 63 | 75 72 73 69 6f 6e 20 28 |save-exc|ursion (|
|00003bf0| 67 6f 74 6f 2d 63 68 61 | 72 20 28 72 65 67 69 6f |goto-cha|r (regio|
|00003c00| 6e 2d 62 65 67 69 6e 6e | 69 6e 67 29 29 20 28 73 |n-beginn|ing)) (s|
|00003c10| 67 6d 6c 2d 72 65 61 64 | 2d 65 6c 65 6d 65 6e 74 |gml-read|-element|
|00003c20| 2d 6e 61 6d 65 20 22 54 | 61 67 20 72 65 67 69 6f |-name "T|ag regio|
|00003c30| 6e 20 77 69 74 68 20 65 | 6c 65 6d 65 6e 74 3a 20 |n with e|lement: |
|00003c40| 22 29 29 20 28 72 65 67 | 69 6f 6e 2d 62 65 67 69 |")) (reg|ion-begi|
|00003c50| 6e 6e 69 6e 67 29 20 28 | 72 65 67 69 6f 6e 2d 65 |nning) (|region-e|
|00003c60| 6e 64 29 29 5d 29 0a 23 | 40 31 32 30 20 49 6e 73 |nd))]).#|@120 Ins|
|00003c70| 65 72 74 20 74 68 65 20 | 61 74 74 72 69 62 75 74 |ert the |attribut|
|00003c80| 65 73 20 77 69 74 68 20 | 76 61 6c 75 65 73 20 41 |es with |values A|
|00003c90| 56 4c 20 61 6e 64 20 64 | 65 63 6c 61 72 61 74 69 |VL and d|eclarati|
|00003ca0| 6f 6e 73 20 41 54 54 4c | 49 53 54 2e 0a 41 56 4c |ons ATTL|IST..AVL|
|00003cb0| 20 73 68 6f 75 6c 64 20 | 62 65 20 61 20 61 73 73 | should |be a ass|
|00003cc0| 6f 63 20 6c 69 73 74 20 | 6d 61 70 70 69 6e 67 20 |oc list |mapping |
|00003cd0| 73 79 6d 62 6f 6c 73 20 | 74 6f 20 73 74 72 69 6e |symbols |to strin|
|00003ce0| 67 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |gs...(de|falias '|
|00003cf0| 73 67 6d 6c 2d 69 6e 73 | 65 72 74 2d 61 74 74 72 |sgml-ins|ert-attr|
|00003d00| 69 62 75 74 65 73 20 23 | 5b 28 61 76 6c 20 61 74 |ibutes #|[(avl at|
|00003d10| 74 6c 69 73 74 29 20 22 | c0 89 89 89 19 1a 1b 1c |tlist) "|........|
|00003d20| 0d 1e 06 c0 1e 07 0e 06 | 3a 83 95 00 0e 06 40 16 |........|:.....@.|
|00003d30| 07 c8 0e 07 21 14 c9 0c | 0e 5c 6e 5c 22 a3 13 cb |....!...|.\n\"...|
|00003d40| 0e 07 21 12 cc 0e 07 21 | 11 0b ac 9a cd ce 09 5c |..!....!|.......\|
|00003d50| 22 ab 84 cf 13 aa 90 0e | 10 ac 8c 0e 11 ac 88 09 |".......|........|
|00003d60| 3a ab 84 d2 09 21 13 0b | ab bd 09 3a ab 95 0e 13 |:....!..|...:....|
|00003d70| d4 61 ab 8f 0e 10 ac 84 | 0e 11 ab 87 0b d2 09 21 |.a......|.......!|
|00003d80| 6b ac a4 0e 13 ab 94 0e | 11 ab 90 0b 97 d5 5c 6e |k.......|......\n|
|00003d90| 21 b6 ab 88 d6 d7 0b 50 | 21 88 aa 8c d6 d7 0c d8 |!......P|!.......|
|00003da0| 51 21 88 d9 0b 21 63 88 | 0e 06 41 89 16 06 82 10 |Q!...!c.|..A.....|
|00003db0| 00 2a 0e 1a ad 83 0e 1a | 20 2c 87 22 20 5b 6e 69 |.*......| ,." [ni|
|00003dc0| 6c 20 64 65 66 20 64 63 | 6c 20 76 61 6c 20 6e 61 |l def dc|l val na|
|00003dd0| 6d 65 20 61 74 74 6c 69 | 73 74 20 47 38 37 39 39 |me attli|st G8799|
|00003de0| 38 20 61 74 74 73 70 65 | 63 20 73 67 6d 6c 2d 61 |8 attspe|c sgml-a|
|00003df0| 74 74 73 70 65 63 2d 6e | 61 6d 65 20 73 67 6d 6c |ttspec-n|ame sgml|
|00003e00| 2d 6c 6f 6f 6b 75 70 2d | 61 74 74 73 70 65 63 20 |-lookup-|attspec |
|00003e10| 61 76 6c 20 73 67 6d 6c | 2d 61 74 74 64 65 63 6c |avl sgml|-attdecl|
|00003e20| 2d 64 65 63 6c 61 72 65 | 64 2d 76 61 6c 75 65 20 |-declare|d-value |
|00003e30| 73 67 6d 6c 2d 61 74 74 | 64 65 63 6c 2d 64 65 66 |sgml-att|decl-def|
|00003e40| 61 75 6c 74 2d 76 61 6c | 75 65 20 73 67 6d 6c 2d |ault-val|ue sgml-|
|00003e50| 64 65 66 61 75 6c 74 2d | 76 61 6c 75 65 2d 74 79 |default-|value-ty|
|00003e60| 70 65 2d 70 20 72 65 71 | 75 69 72 65 64 20 22 22 |pe-p req|uired ""|
|00003e70| 20 73 67 6d 6c 2d 6f 6d | 69 74 74 61 67 20 73 67 | sgml-om|ittag sg|
|00003e80| 6d 6c 2d 73 68 6f 72 74 | 74 61 67 20 73 67 6d 6c |ml-short|tag sgml|
|00003e90| 2d 64 65 66 61 75 6c 74 | 2d 76 61 6c 75 65 2d 61 |-default|-value-a|
|00003ea0| 74 74 76 61 6c 20 73 67 | 6d 6c 2d 6d 69 6e 69 6d |ttval sg|ml-minim|
|00003eb0| 69 7a 65 2d 61 74 74 72 | 69 62 75 74 65 73 20 6d |ize-attr|ibutes m|
|00003ec0| 61 78 20 73 67 6d 6c 2d | 64 65 63 6c 61 72 65 64 |ax sgml-|declared|
|00003ed0| 2d 76 61 6c 75 65 2d 74 | 6f 6b 65 6e 2d 67 72 6f |-value-t|oken-gro|
|00003ee0| 75 70 20 74 65 6d 70 6f | 2d 70 72 6f 63 65 73 73 |up tempo|-process|
|00003ef0| 2d 61 6e 64 2d 69 6e 73 | 65 72 74 2d 73 74 72 69 |-and-ins|ert-stri|
|00003f00| 6e 67 20 22 20 22 20 22 | 3d 22 20 73 67 6d 6c 2d |ng " " "|=" sgml-|
|00003f10| 71 75 6f 74 65 2d 61 74 | 74 72 69 62 75 74 65 2d |quote-at|tribute-|
|00003f20| 76 61 6c 75 65 20 61 75 | 74 6f 2d 66 69 6c 6c 2d |value au|to-fill-|
|00003f30| 66 75 6e 63 74 69 6f 6e | 5d 20 35 20 28 23 24 20 |function|] 5 (#$ |
|00003f40| 2e 20 31 35 34 36 39 29 | 5d 29 0a 23 40 35 39 20 |. 15469)|]).#@59 |
|00003f50| 41 64 64 20 71 75 6f 74 | 65 73 20 74 6f 20 74 68 |Add quot|es to th|
|00003f60| 65 20 73 74 72 69 6e 67 | 20 56 41 4c 55 45 20 75 |e string| VALUE u|
|00003f70| 6e 6c 65 73 73 20 6d 69 | 6e 69 6d 69 7a 61 74 69 |nless mi|nimizati|
|00003f80| 6f 6e 20 69 73 20 6f 6e | 2e 1f 0a 28 64 65 66 61 |on is on|...(defa|
|00003f90| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 71 75 6f 74 65 |lias 'sg|ml-quote|
|00003fa0| 2d 61 74 74 72 69 62 75 | 74 65 2d 76 61 6c 75 65 |-attribu|te-value|
|00003fb0| 20 23 5b 28 76 61 6c 75 | 65 29 20 22 c0 19 5c 6e | #[(valu|e) "..\n|
|00003fc0| ac 8a 0b ab 87 c4 c5 0e | 06 5c 22 ac 8d c4 c7 0e |........|.\".....|
|00003fd0| 06 5c 22 ac 84 c7 11 aa | 82 c8 11 09 0e 06 09 51 |.\".....|.......Q|
|00003fe0| 29 87 22 20 5b 22 22 20 | 71 75 6f 74 65 20 73 67 |)." ["" |quote sg|
|00003ff0| 6d 6c 2d 61 6c 77 61 79 | 73 2d 71 75 6f 74 65 2d |ml-alway|s-quote-|
|00004000| 61 74 74 72 69 62 75 74 | 65 73 20 73 67 6d 6c 2d |attribut|es sgml-|
|00004010| 73 68 6f 72 74 74 61 67 | 20 73 74 72 69 6e 67 2d |shorttag| string-|
|00004020| 6d 61 74 63 68 20 22 5c | 5c 60 5b 2e 41 2d 5a 61 |match "\|\`[.A-Za|
|00004030| 2d 7a 30 2d 39 2d 2d 2d | 5d 2b 5c 5c 27 22 20 76 |-z0-9---|]+\\'" v|
|00004040| 61 6c 75 65 20 22 5c 22 | 22 20 22 27 22 5d 20 33 |alue "\"|" "'"] 3|
|00004050| 20 28 23 24 20 2e 20 31 | 36 32 30 38 29 5d 29 0a | (#$ . 1|6208)]).|
|00004060| 28 64 65 66 61 6c 69 61 | 73 20 27 73 67 6d 6c 2d |(defalia|s 'sgml-|
|00004070| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 74 61 62 6c 65 |completi|on-table|
|00004080| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 76 | #[(&opt|ional av|
|00004090| 6f 69 64 2d 74 61 67 73 | 2d 69 6e 2d 63 64 61 74 |oid-tags|-in-cdat|
|000040a0| 61 29 20 22 c0 20 88 09 | ab 84 c2 c3 21 88 0c 3a |a) ". ..|....!..:|
|000040b0| ac 85 0c 0d 61 ab 8d c6 | c7 c8 c9 20 5c 22 c7 ca |....a...|... \"..|
|000040c0| cb 20 5c 22 5c 22 87 cc | cd 0c 5c 22 88 ce 87 22 |. \"\"..|..\"..."|
|000040d0| 20 5b 73 67 6d 6c 2d 70 | 61 72 73 65 2d 74 6f 2d | [sgml-p|arse-to-|
|000040e0| 68 65 72 65 20 73 67 6d | 6c 2d 6d 61 72 6b 75 70 |here sgm|l-markup|
|000040f0| 2d 74 79 70 65 20 65 72 | 72 6f 72 20 22 4e 6f 20 |-type er|ror "No |
|00004100| 74 61 67 73 20 61 6c 6c | 6f 77 65 64 22 20 73 67 |tags all|owed" sg|
|00004110| 6d 6c 2d 63 75 72 72 65 | 6e 74 2d 73 74 61 74 65 |ml-curre|nt-state|
|00004120| 20 73 67 6d 6c 2d 61 6e | 79 20 61 70 70 65 6e 64 | sgml-an|y append|
|00004130| 20 6d 61 70 63 61 72 20 | 23 5b 28 78 29 20 22 c0 | mapcar |#[(x) ".|
|00004140| 09 21 09 42 87 22 20 5b | 73 67 6d 6c 2d 65 6e 64 |.!.B." [|sgml-end|
|00004150| 2d 74 61 67 2d 6f 66 20 | 78 5d 20 32 5d 20 73 67 |-tag-of |x] 2] sg|
|00004160| 6d 6c 2d 63 75 72 72 65 | 6e 74 2d 6c 69 73 74 2d |ml-curre|nt-list-|
|00004170| 6f 66 2d 65 6e 64 61 62 | 6c 65 2d 65 6c 74 79 70 |of-endab|le-eltyp|
|00004180| 65 73 20 23 5b 28 78 29 | 20 22 c0 09 21 09 42 87 |es #[(x)| "..!.B.|
|00004190| 22 20 5b 73 67 6d 6c 2d | 73 74 61 72 74 2d 74 61 |" [sgml-|start-ta|
|000041a0| 67 2d 6f 66 20 78 5d 20 | 32 5d 20 73 67 6d 6c 2d |g-of x] |2] sgml-|
|000041b0| 63 75 72 72 65 6e 74 2d | 6c 69 73 74 2d 6f 66 2d |current-|list-of-|
|000041c0| 76 61 6c 69 64 2d 65 6c | 74 79 70 65 73 20 73 67 |valid-el|types sg|
|000041d0| 6d 6c 2d 6d 65 73 73 61 | 67 65 20 22 25 73 22 20 |ml-messa|ge "%s" |
|000041e0| 6e 69 6c 5d 20 36 5d 29 | 0a 28 64 65 66 61 6c 69 |nil] 6])|.(defali|
|000041f0| 61 73 20 27 73 67 6d 6c | 2d 65 6c 65 6d 65 6e 74 |as 'sgml|-element|
|00004200| 2d 65 6e 64 61 62 6c 65 | 2d 70 20 23 5b 6e 69 6c |-endable|-p #[nil|
|00004210| 20 22 c0 20 88 09 5c 6e | 61 3f ad 8c 0b 1c c5 0c | ". ..\n|a?......|
|00004220| 21 3f ae 83 c6 0c 21 29 | 87 22 20 5b 73 67 6d 6c |!?....!)|." [sgml|
|00004230| 2d 70 61 72 73 65 2d 74 | 6f 2d 68 65 72 65 20 73 |-parse-t|o-here s|
|00004240| 67 6d 6c 2d 63 75 72 72 | 65 6e 74 2d 74 72 65 65 |gml-curr|ent-tree|
|00004250| 20 73 67 6d 6c 2d 74 6f | 70 2d 74 72 65 65 20 73 | sgml-to|p-tree s|
|00004260| 67 6d 6c 2d 63 75 72 72 | 65 6e 74 2d 73 74 61 74 |gml-curr|ent-stat|
|00004270| 65 20 73 74 61 74 65 20 | 73 67 6d 6c 2d 6d 6f 64 |e state |sgml-mod|
|00004280| 65 6c 2d 67 72 6f 75 70 | 2d 70 20 73 67 6d 6c 2d |el-group|-p sgml-|
|00004290| 66 69 6e 61 6c 5d 20 32 | 5d 29 0a 23 40 34 36 20 |final] 2|]).#@46 |
|000042a0| 49 6e 73 65 72 74 20 65 | 6e 64 2d 74 61 67 20 66 |Insert e|nd-tag f|
|000042b0| 6f 72 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6f |or the c|urrent o|
|000042c0| 70 65 6e 20 65 6c 65 6d | 65 6e 74 2e 1f 0a 28 64 |pen elem|ent...(d|
|000042d0| 65 66 61 6c 69 61 73 20 | 27 73 67 6d 6c 2d 69 6e |efalias |'sgml-in|
|000042e0| 73 65 72 74 2d 65 6e 64 | 2d 74 61 67 20 23 5b 6e |sert-end|-tag #[n|
|000042f0| 69 6c 20 22 c0 20 88 09 | 5c 6e 61 ab 84 c3 c4 21 |il ". ..|\na....!|
|00004300| 87 0d 1e 06 c7 0e 06 21 | 3f ae 84 c8 0e 06 21 29 |.......!|?.....!)|
|00004310| ac 84 c3 c9 21 87 0e 5c | 6e ab 8e cb 09 21 ac 89 |....!..\|n....!..|
|00004320| cc 20 88 6e ac 83 cd 63 | 88 6e ce 09 cf 48 d0 61 |. .n...c|.n...H.a|
|00004330| ab 83 d1 aa 87 d2 d3 d4 | 20 21 40 21 21 88 ad 82 |........| !@!!...|
|00004340| d5 20 87 22 20 5b 73 67 | 6d 6c 2d 70 61 72 73 65 |. ." [sg|ml-parse|
|00004350| 2d 74 6f 2d 68 65 72 65 | 20 73 67 6d 6c 2d 63 75 |-to-here| sgml-cu|
|00004360| 72 72 65 6e 74 2d 74 72 | 65 65 20 73 67 6d 6c 2d |rrent-tr|ee sgml-|
|00004370| 74 6f 70 2d 74 72 65 65 | 20 73 67 6d 6c 2d 65 72 |top-tree| sgml-er|
|00004380| 72 6f 72 20 22 4e 6f 20 | 6f 70 65 6e 20 65 6c 65 |ror "No |open ele|
|00004390| 6d 65 6e 74 22 20 73 67 | 6d 6c 2d 63 75 72 72 65 |ment" sg|ml-curre|
|000043a0| 6e 74 2d 73 74 61 74 65 | 20 73 74 61 74 65 20 73 |nt-state| state s|
|000043b0| 67 6d 6c 2d 6d 6f 64 65 | 6c 2d 67 72 6f 75 70 2d |gml-mode|l-group-|
|000043c0| 70 20 73 67 6d 6c 2d 66 | 69 6e 61 6c 20 22 43 61 |p sgml-f|inal "Ca|
|000043d0| 6e 60 74 20 65 6e 64 20 | 65 6c 65 6d 65 6e 74 20 |n`t end |element |
|000043e0| 68 65 72 65 22 20 73 67 | 6d 6c 2d 69 6e 64 65 6e |here" sg|ml-inden|
|000043f0| 74 2d 73 74 65 70 20 73 | 67 6d 6c 2d 65 6c 65 6d |t-step s|gml-elem|
|00004400| 65 6e 74 2d 64 61 74 61 | 2d 70 20 64 65 6c 65 74 |ent-data|-p delet|
|00004410| 65 2d 68 6f 72 69 7a 6f | 6e 74 61 6c 2d 73 70 61 |e-horizo|ntal-spa|
|00004420| 63 65 20 22 5c 6e 22 20 | 74 65 6d 70 6f 2d 70 72 |ce "\n" |tempo-pr|
|00004430| 6f 63 65 73 73 2d 61 6e | 64 2d 69 6e 73 65 72 74 |ocess-an|d-insert|
|00004440| 2d 73 74 72 69 6e 67 20 | 31 32 20 74 20 22 2f 22 |-string |12 t "/"|
|00004450| 20 73 67 6d 6c 2d 65 6e | 64 2d 74 61 67 2d 6f 66 | sgml-en|d-tag-of|
|00004460| 20 6c 61 73 74 20 73 67 | 6d 6c 2d 63 75 72 72 65 | last sg|ml-curre|
|00004470| 6e 74 2d 6c 69 73 74 2d | 6f 66 2d 65 6e 64 61 62 |nt-list-|of-endab|
|00004480| 6c 65 2d 65 6c 74 79 70 | 65 73 20 73 67 6d 6c 2d |le-eltyp|es sgml-|
|00004490| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 5d 20 35 20 28 |indent-l|ine] 5 (|
|000044a0| 23 24 20 2e 20 31 37 30 | 35 36 29 20 22 2a 22 5d |#$ . 170|56) "*"]|
|000044b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 67 6d |).(defal|ias 'sgm|
|000044c0| 6c 2d 69 6e 73 65 72 74 | 2d 73 74 61 72 74 2d 74 |l-insert|-start-t|
|000044d0| 61 67 20 23 5b 28 6e 61 | 6d 65 20 61 73 6c 20 61 |ag #[(na|me asl a|
|000044e0| 74 74 6c 69 73 74 20 26 | 6f 70 74 69 6f 6e 61 6c |ttlist &|optional|
|000044f0| 20 6e 65 74 29 20 22 c0 | c1 5c 6e 50 21 88 c3 0c | net) ".|.\nP!...|
|00004500| 0d 5c 22 88 0e 06 ab 83 | c7 aa 81 c8 63 87 22 20 |.\".....|....c." |
|00004510| 5b 74 65 6d 70 6f 2d 70 | 72 6f 63 65 73 73 2d 61 |[tempo-p|rocess-a|
|00004520| 6e 64 2d 69 6e 73 65 72 | 74 2d 73 74 72 69 6e 67 |nd-inser|t-string|
|00004530| 20 22 3c 22 20 6e 61 6d | 65 20 73 67 6d 6c 2d 69 | "<" nam|e sgml-i|
|00004540| 6e 73 65 72 74 2d 61 74 | 74 72 69 62 75 74 65 73 |nsert-at|tributes|
|00004550| 20 61 73 6c 20 61 74 74 | 6c 69 73 74 20 6e 65 74 | asl att|list net|
|00004560| 20 22 2f 22 20 22 3e 22 | 5d 20 33 5d 29 0a 28 64 | "/" ">"|] 3]).(d|
|00004570| 65 66 61 6c 69 61 73 20 | 27 73 67 6d 6c 2d 63 68 |efalias |'sgml-ch|
|00004580| 61 6e 67 65 2d 73 74 61 | 72 74 2d 74 61 67 20 23 |ange-sta|rt-tag #|
|00004590| 5b 28 65 6c 65 6d 65 6e | 74 20 61 73 6c 29 20 22 |[(elemen|t asl) "|
|000045a0| c0 09 21 c2 09 21 1b 1c | c5 09 c6 48 21 ac 86 c7 |..!..!..|...H!...|
|000045b0| c8 c9 43 5c 22 88 ca 09 | 21 62 88 cb 09 cc 48 21 |..C\"...|!b....H!|
|000045c0| 88 cd 0c 0e 0e 0b 09 cf | 48 d0 61 24 2a 87 22 20 |........|H.a$*." |
|000045d0| 5b 73 67 6d 6c 2d 65 6c | 65 6d 65 6e 74 2d 67 69 |[sgml-el|ement-gi|
|000045e0| 20 65 6c 65 6d 65 6e 74 | 20 73 67 6d 6c 2d 65 6c | element| sgml-el|
|000045f0| 65 6d 65 6e 74 2d 61 74 | 74 6c 69 73 74 20 61 74 |ement-at|tlist at|
|00004600| 74 6c 69 73 74 20 6e 61 | 6d 65 20 73 67 6d 6c 2d |tlist na|me sgml-|
|00004610| 62 70 6f 73 2d 70 20 31 | 20 73 69 67 6e 61 6c 20 |bpos-p 1| signal |
|00004620| 63 6c 2d 61 73 73 65 72 | 74 69 6f 6e 2d 66 61 69 |cl-asser|tion-fai|
|00004630| 6c 65 64 20 28 73 67 6d | 6c 2d 62 70 6f 73 2d 70 |led (sgm|l-bpos-p|
|00004640| 20 28 73 67 6d 6c 2d 65 | 6c 65 6d 65 6e 74 2d 73 | (sgml-e|lement-s|
|00004650| 74 61 67 2d 65 70 6f 73 | 20 65 6c 65 6d 65 6e 74 |tag-epos| element|
|00004660| 29 29 20 73 67 6d 6c 2d | 65 6c 65 6d 65 6e 74 2d |)) sgml-|element-|
|00004670| 73 74 61 72 74 20 64 65 | 6c 65 74 65 2d 63 68 61 |start de|lete-cha|
|00004680| 72 20 33 20 73 67 6d 6c | 2d 69 6e 73 65 72 74 2d |r 3 sgml|-insert-|
|00004690| 73 74 61 72 74 2d 74 61 | 67 20 61 73 6c 20 31 32 |start-ta|g asl 12|
|000046a0| 20 74 5d 20 36 5d 29 0a | 23 40 31 37 32 20 52 65 | t] 6]).|#@172 Re|
|000046b0| 74 75 72 6e 20 74 68 65 | 20 61 74 74 72 69 62 75 |turn the| attribu|
|000046c0| 74 65 20 76 61 6c 75 65 | 20 72 65 61 64 20 66 72 |te value| read fr|
|000046d0| 6f 6d 20 75 73 65 72 2e | 0a 41 54 54 44 45 43 4c |om user.|.ATTDECL|
|000046e0| 20 69 73 20 74 68 65 20 | 61 74 74 72 69 62 75 74 | is the |attribut|
|000046f0| 65 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 20 66 6f |e declar|ation fo|
|00004700| 72 20 74 68 65 20 61 74 | 74 72 69 62 75 74 65 20 |r the at|tribute |
|00004710| 74 6f 20 72 65 61 64 2e | 0a 43 55 52 56 41 4c 55 |to read.|.CURVALU|
|00004720| 45 20 69 73 20 6e 69 6c | 20 6f 72 20 61 20 73 74 |E is nil| or a st|
|00004730| 72 69 6e 67 20 74 68 61 | 74 20 77 69 6c 6c 20 62 |ring tha|t will b|
|00004740| 65 20 75 73 65 64 20 61 | 73 20 64 65 66 61 75 6c |e used a|s defaul|
|00004750| 74 20 76 61 6c 75 65 2e | 1f 0a 28 64 65 66 61 6c |t value.|..(defal|
|00004760| 69 61 73 20 27 73 67 6d | 6c 2d 72 65 61 64 2d 61 |ias 'sgm|l-read-a|
|00004770| 74 74 72 69 62 75 74 65 | 2d 76 61 6c 75 65 20 23 |ttribute|-value #|
|00004780| 5b 28 61 74 74 64 65 63 | 6c 20 63 75 72 76 61 6c |[(attdec|l curval|
|00004790| 75 65 29 20 22 08 ac 86 | c1 c2 c0 43 5c 22 88 c3 |ue) "...|...C\"..|
|000047a0| 08 21 1c c5 08 21 1e 06 | c7 0e 06 21 1e 08 c9 0e |.!...!..|...!....|
|000047b0| 06 21 1e 5c 6e 0e 08 ab | 83 cb aa 8b 0e 5c 6e ab |.!.\n...|.....\n.|
|000047c0| 83 cc aa 84 cd 0e 06 21 | 1e 0e cf d0 0c 0e 0e 0e |.......!|........|
|000047d0| 11 ab 87 cf d2 0e 11 5c | 22 aa 81 d3 24 1e 14 d5 |.......\|"...$...|
|000047e0| 1e 16 0e 08 ac 84 0e 5c | 6e ab 91 d7 0e 14 d8 d9 |.......\|n.......|
|000047f0| 0e 08 ae 82 0e 5c 6e 5c | 22 d5 da 24 aa 84 db 0e |.....\n\|"..$....|
|00004800| 14 21 16 16 0e 11 ab 8a | 0e 16 d3 6b ab 84 0e 11 |.!......|...k....|
|00004810| aa 82 0e 16 2e 07 87 22 | 20 5b 61 74 74 64 65 63 |......."| [attdec|
|00004820| 6c 20 73 69 67 6e 61 6c | 20 63 6c 2d 61 73 73 65 |l signal| cl-asse|
|00004830| 72 74 69 6f 6e 2d 66 61 | 69 6c 65 64 20 73 67 6d |rtion-fa|iled sgm|
|00004840| 6c 2d 61 74 74 64 65 63 | 6c 2d 6e 61 6d 65 20 6e |l-attdec|l-name n|
|00004850| 61 6d 65 20 73 67 6d 6c | 2d 61 74 74 64 65 63 6c |ame sgml|-attdecl|
|00004860| 2d 64 65 63 6c 61 72 65 | 64 2d 76 61 6c 75 65 20 |-declare|d-value |
|00004870| 64 76 20 73 67 6d 6c 2d | 64 65 63 6c 61 72 65 64 |dv sgml-|declared|
|00004880| 2d 76 61 6c 75 65 2d 74 | 6f 6b 65 6e 2d 67 72 6f |-value-t|oken-gro|
|00004890| 75 70 20 74 6f 6b 65 6e | 73 20 73 67 6d 6c 2d 64 |up token|s sgml-d|
|000048a0| 65 63 6c 61 72 65 64 2d | 76 61 6c 75 65 2d 6e 6f |eclared-|value-no|
|000048b0| 74 61 74 69 6f 6e 20 6e | 6f 74 61 74 69 6f 6e 73 |tation n|otations|
|000048c0| 20 22 74 6f 6b 65 6e 22 | 20 22 6e 6f 74 61 74 69 | "token"| "notati|
|000048d0| 6f 6e 22 20 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |on" symb|ol-name |
|000048e0| 74 79 70 65 20 66 6f 72 | 6d 61 74 20 22 56 61 6c |type for|mat "Val|
|000048f0| 75 65 20 66 6f 72 20 25 | 73 20 28 25 73 25 73 29 |ue for %|s (%s%s)|
|00004900| 3a 20 22 20 63 75 72 76 | 61 6c 75 65 20 22 20 44 |: " curv|alue " D|
|00004910| 65 66 61 75 6c 74 3a 20 | 25 73 22 20 22 22 20 70 |efault: |%s" "" p|
|00004920| 72 6f 6d 70 74 20 6e 69 | 6c 20 76 61 6c 75 65 20 |rompt ni|l value |
|00004930| 63 6f 6d 70 6c 65 74 69 | 6e 67 2d 72 65 61 64 20 |completi|ng-read |
|00004940| 6d 61 70 63 61 72 20 6c | 69 73 74 20 74 20 72 65 |mapcar l|ist t re|
|00004950| 61 64 2d 73 74 72 69 6e | 67 5d 20 37 20 28 23 24 |ad-strin|g] 7 (#$|
|00004960| 20 2e 20 31 38 30 39 34 | 29 5d 29 0a 28 64 65 66 | . 18094|)]).(def|
|00004970| 61 6c 69 61 73 20 27 73 | 67 6d 6c 2d 6e 6f 6e 2d |alias 's|gml-non-|
|00004980| 66 69 78 65 64 2d 61 74 | 74 72 69 62 75 74 65 73 |fixed-at|tributes|
|00004990| 20 23 5b 28 61 74 74 6c | 69 73 74 29 20 22 08 19 | #[(attl|ist) "..|
|000049a0| c2 1b c2 1c 09 3a ab 95 | 09 40 13 c5 c6 c7 0b 21 |.....:..|.@.....!|
|000049b0| 5c 22 ac 84 0b 0c 42 14 | 09 41 89 11 aa 68 0c 9f |\"....B.|.A...h..|
|000049c0| 2b 87 22 20 5b 61 74 74 | 6c 69 73 74 20 47 38 37 |+." [att|list G87|
|000049d0| 39 39 39 20 6e 69 6c 20 | 61 74 74 64 65 63 6c 20 |999 nil |attdecl |
|000049e0| 47 38 38 30 30 30 20 73 | 67 6d 6c 2d 64 65 66 61 |G88000 s|gml-defa|
|000049f0| 75 6c 74 2d 76 61 6c 75 | 65 2d 74 79 70 65 2d 70 |ult-valu|e-type-p|
|00004a00| 20 66 69 78 65 64 20 73 | 67 6d 6c 2d 61 74 74 64 | fixed s|gml-attd|
|00004a10| 65 63 6c 2d 64 65 66 61 | 75 6c 74 2d 76 61 6c 75 |ecl-defa|ult-valu|
|00004a20| 65 5d 20 35 5d 29 0a 23 | 40 37 34 20 52 65 61 64 |e] 5]).#|@74 Read|
|00004a30| 20 61 74 74 72 69 62 75 | 74 65 20 6e 61 6d 65 20 | attribu|te name |
|00004a40| 61 6e 64 20 76 61 6c 75 | 65 20 66 72 6f 6d 20 6d |and valu|e from m|
|00004a50| 69 6e 69 62 75 66 66 65 | 72 20 61 6e 64 20 69 6e |inibuffe|r and in|
|00004a60| 73 65 72 74 20 61 74 74 | 72 69 62 75 74 65 20 73 |sert att|ribute s|
|00004a70| 70 65 63 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |pec...(d|efalias |
|00004a80| 27 73 67 6d 6c 2d 69 6e | 73 65 72 74 2d 61 74 74 |'sgml-in|sert-att|
|00004a90| 72 69 62 75 74 65 20 23 | 5b 28 6e 61 6d 65 20 76 |ribute #|[(name v|
|00004aa0| 61 6c 75 65 29 20 22 08 | 3b ac 86 c1 c2 c3 43 5c |alue) ".|;.....C\|
|00004ab0| 22 88 0c ab 8a 0c 3b ac | 86 c1 c2 c5 43 5c 22 88 |".....;.|....C\".|
|00004ac0| c6 20 1e 07 c8 08 0c 5c | 22 c9 0e 07 21 42 1e 5c |. .....\|"...!B.\|
|00004ad0| 6e 60 cb 0e 07 21 57 1e | 0c cd 0e 07 0e 5c 6e 5c |n`...!W.|.....\n\|
|00004ae0| 22 88 0e 0c ad 82 ce 75 | 2b 87 22 20 5b 6e 61 6d |"......u|+." [nam|
|00004af0| 65 20 73 69 67 6e 61 6c | 20 63 6c 2d 61 73 73 65 |e signal| cl-asse|
|00004b00| 72 74 69 6f 6e 2d 66 61 | 69 6c 65 64 20 28 73 74 |rtion-fa|iled (st|
|00004b10| 72 69 6e 67 70 20 6e 61 | 6d 65 29 20 76 61 6c 75 |ringp na|me) valu|
|00004b20| 65 20 28 6f 72 20 28 6e | 75 6c 6c 20 76 61 6c 75 |e (or (n|ull valu|
|00004b30| 65 29 20 28 73 74 72 69 | 6e 67 70 20 76 61 6c 75 |e) (stri|ngp valu|
|00004b40| 65 29 29 20 73 67 6d 6c | 2d 66 69 6e 64 2d 61 74 |e)) sgml|-find-at|
|00004b50| 74 72 69 62 75 74 65 2d | 65 6c 65 6d 65 6e 74 20 |tribute-|element |
|00004b60| 65 6c 20 73 67 6d 6c 2d | 6d 61 6b 65 2d 61 74 74 |el sgml-|make-att|
|00004b70| 73 70 65 63 20 73 67 6d | 6c 2d 65 6c 65 6d 65 6e |spec sgm|l-elemen|
|00004b80| 74 2d 61 74 74 72 69 62 | 75 74 65 2d 73 70 65 63 |t-attrib|ute-spec|
|00004b90| 69 66 69 63 61 74 69 6f | 6e 2d 6c 69 73 74 20 61 |ificatio|n-list a|
|00004ba0| 73 6c 20 73 67 6d 6c 2d | 65 6c 65 6d 65 6e 74 2d |sl sgml-|element-|
|00004bb0| 73 74 61 67 2d 65 6e 64 | 20 69 6e 2d 74 61 67 20 |stag-end| in-tag |
|00004bc0| 73 67 6d 6c 2d 63 68 61 | 6e 67 65 2d 73 74 61 72 |sgml-cha|nge-star|
|00004bd0| 74 2d 74 61 67 20 2d 31 | 5d 20 33 20 28 23 24 20 |t-tag -1|] 3 (#$ |
|00004be0| 2e 20 31 38 39 38 38 29 | 20 28 6c 65 74 2a 20 28 |. 18988)| (let* (|
|00004bf0| 28 65 6c 20 28 73 67 6d | 6c 2d 66 69 6e 64 2d 61 |(el (sgm|l-find-a|
|00004c00| 74 74 72 69 62 75 74 65 | 2d 65 6c 65 6d 65 6e 74 |ttribute|-element|
|00004c10| 29 29 20 28 6e 61 6d 65 | 20 28 63 6f 6d 70 6c 65 |)) (name| (comple|
|00004c20| 74 69 6e 67 2d 72 65 61 | 64 20 22 41 74 74 72 69 |ting-rea|d "Attri|
|00004c30| 62 75 74 65 20 6e 61 6d | 65 3a 20 22 20 28 6d 61 |bute nam|e: " (ma|
|00004c40| 70 63 61 72 20 28 66 75 | 6e 63 74 69 6f 6e 20 28 |pcar (fu|nction (|
|00004c50| 6c 61 6d 62 64 61 20 28 | 61 29 20 28 6c 69 73 74 |lambda (|a) (list|
|00004c60| 20 28 73 67 6d 6c 2d 61 | 74 74 64 65 63 6c 2d 6e | (sgml-a|ttdecl-n|
|00004c70| 61 6d 65 20 61 29 29 29 | 29 20 28 73 67 6d 6c 2d |ame a)))|) (sgml-|
|00004c80| 6e 6f 6e 2d 66 69 78 65 | 64 2d 61 74 74 72 69 62 |non-fixe|d-attrib|
|00004c90| 75 74 65 73 20 28 73 67 | 6d 6c 2d 65 6c 65 6d 65 |utes (sg|ml-eleme|
|00004ca0| 6e 74 2d 61 74 74 6c 69 | 73 74 20 65 6c 29 29 29 |nt-attli|st el)))|
|00004cb0| 20 6e 69 6c 20 74 29 29 | 29 20 28 6c 69 73 74 20 | nil t))|) (list |
|00004cc0| 6e 61 6d 65 20 28 73 67 | 6d 6c 2d 72 65 61 64 2d |name (sg|ml-read-|
|00004cd0| 61 74 74 72 69 62 75 74 | 65 2d 76 61 6c 75 65 20 |attribut|e-value |
|00004ce0| 28 73 67 6d 6c 2d 6c 6f | 6f 6b 75 70 2d 61 74 74 |(sgml-lo|okup-att|
|00004cf0| 64 65 63 6c 20 6e 61 6d | 65 20 28 73 67 6d 6c 2d |decl nam|e (sgml-|
|00004d00| 65 6c 65 6d 65 6e 74 2d | 61 74 74 6c 69 73 74 20 |element-|attlist |
|00004d10| 65 6c 29 29 20 28 73 67 | 6d 6c 2d 65 6c 65 6d 65 |el)) (sg|ml-eleme|
|00004d20| 6e 74 2d 61 74 74 76 61 | 6c 20 65 6c 20 6e 61 6d |nt-attva|l el nam|
|00004d30| 65 29 29 29 29 5d 29 0a | 23 40 31 33 33 20 53 70 |e))))]).|#@133 Sp|
|00004d40| 6c 69 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |lit the |current |
|00004d50| 65 6c 65 6d 65 6e 74 20 | 61 74 20 70 6f 69 6e 74 |element |at point|
|00004d60| 2e 0a 49 66 20 72 65 70 | 65 61 74 65 64 2c 20 74 |..If rep|eated, t|
|00004d70| 68 65 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 65 6c |he conta|ining el|
|00004d80| 65 6d 65 6e 74 20 77 69 | 6c 6c 20 62 65 20 73 70 |ement wi|ll be sp|
|00004d90| 6c 69 74 20 62 65 66 6f | 72 65 20 74 68 65 20 62 |lit befo|re the b|
|00004da0| 65 67 69 6e 6e 69 6e 67 | 0a 6f 66 20 74 68 65 6e |eginning|.of then|
|00004db0| 20 63 75 72 72 65 6e 74 | 20 65 6c 65 6d 65 6e 74 | current| element|
|00004dc0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 67 |...(defa|lias 'sg|
|00004dd0| 6d 6c 2d 73 70 6c 69 74 | 2d 65 6c 65 6d 65 6e 74 |ml-split|-element|
|00004de0| 20 23 5b 6e 69 6c 20 22 | 08 09 61 ab 84 5c 6e 54 | #[nil "|..a..\nT|
|00004df0| aa 81 c3 12 c4 60 21 c5 | 20 1e 06 1e 07 5c 6e 1e |.....`!.| ....\n.|
|00004e00| 08 0e 08 53 89 16 08 c3 | 59 ab 8e c9 0e 07 21 62 |...S....|Y.....!b|
|00004e10| 88 0e 07 ca 48 16 07 aa | 68 29 0e 07 cb 48 ab cd |....H...|h)...H..|
|00004e20| 0e 07 cb 48 cc 0e 07 21 | 1e 0d 89 1e 0e 40 cf 61 |...H...!|.....@.a|
|00004e30| ab b2 0e 0d 0e 0e 41 40 | b7 ae 87 0e 0d 0e 0e 41 |......A@|.......A|
|00004e40| 41 b7 89 1e 10 ad 9a 0e | 10 41 89 1e 11 40 cf 61 |A.......|.A...@.a|
|00004e50| ab 84 0e 11 aa 8a d2 0e | 11 41 0e 0d 0e 11 40 23 |........|.A....@#|
|00004e60| 29 29 aa 86 d3 0e 0e 0e | 0d 5c 22 2a ac 88 d4 d5 |))......|.\"*....|
|00004e70| cc 0e 07 21 5c 22 88 d6 | 20 88 d7 d8 0e 07 21 d9 |...!\"..| .....!.|
|00004e80| 5c 22 88 da db 77 88 dc | 20 88 5c 6e c3 56 ab 84 |\"...w..| .\n.V..|
|00004e90| 0e 06 62 88 0e 1d 0e 07 | ca 48 89 16 07 61 ae 87 |..b.....|.H...a..|
|00004ea0| de df cc 0e 07 21 5c 22 | 2a 87 22 20 5b 74 68 69 |.....!\"|*." [thi|
|00004eb0| 73 2d 63 6f 6d 6d 61 6e | 64 20 6c 61 73 74 2d 63 |s-comman|d last-c|
|00004ec0| 6f 6d 6d 61 6e 64 20 73 | 67 6d 6c 2d 73 70 6c 69 |ommand s|gml-spli|
|00004ed0| 74 2d 6c 65 76 65 6c 20 | 30 20 73 67 6d 6c 2d 66 |t-level |0 sgml-f|
|00004ee0| 69 6e 64 2d 63 6f 6e 74 | 65 78 74 2d 6f 66 20 70 |ind-cont|ext-of p|
|00004ef0| 6f 69 6e 74 2d 6d 61 72 | 6b 65 72 20 73 74 61 72 |oint-mar|ker star|
|00004f00| 74 20 75 20 47 38 38 30 | 30 31 20 73 67 6d 6c 2d |t u G880|01 sgml-|
|00004f10| 65 6c 65 6d 65 6e 74 2d | 73 74 61 72 74 20 35 20 |element-|start 5 |
|00004f20| 39 20 73 67 6d 6c 2d 65 | 6c 65 6d 65 6e 74 2d 6e |9 sgml-e|lement-n|
|00004f30| 61 6d 65 20 74 6f 6b 65 | 6e 20 73 74 61 74 65 20 |ame toke|n state |
|00004f40| 6e 6f 72 6d 61 6c 2d 73 | 74 61 74 65 20 63 20 64 |normal-s|tate c d|
|00004f50| 65 73 74 20 73 67 6d 6c | 2d 6e 65 78 74 2d 73 75 |est sgml|-next-su|
|00004f60| 62 2d 61 6e 64 20 73 67 | 6d 6c 2d 67 65 74 2d 61 |b-and sg|ml-get-a|
|00004f70| 6e 64 2d 6d 6f 76 65 20 | 73 67 6d 6c 2d 65 72 72 |nd-move |sgml-err|
|00004f80| 6f 72 20 22 54 68 65 20 | 25 73 20 65 6c 65 6d 65 |or "The |%s eleme|
|00004f90| 6e 74 20 63 61 6e 27 74 | 20 62 65 20 73 70 6c 69 |nt can't| be spli|
|00004fa0| 74 22 20 73 67 6d 6c 2d | 69 6e 73 65 72 74 2d 65 |t" sgml-|insert-e|
|00004fb0| 6e 64 2d 74 61 67 20 73 | 67 6d 6c 2d 69 6e 73 65 |nd-tag s|gml-inse|
|00004fc0| 72 74 2d 74 61 67 20 73 | 67 6d 6c 2d 73 74 61 72 |rt-tag s|gml-star|
|00004fd0| 74 2d 74 61 67 2d 6f 66 | 20 73 69 6c 65 6e 74 20 |t-tag-of| silent |
|00004fe0| 22 20 09 5c 6e 22 20 6e | 69 6c 20 73 67 6d 6c 2d |" .\n" n|il sgml-|
|00004ff0| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 20 73 67 6d 6c |indent-l|ine sgml|
|00005000| 2d 74 6f 70 2d 74 72 65 | 65 20 73 67 6d 6c 2d 6d |-top-tre|e sgml-m|
|00005010| 65 73 73 61 67 65 20 22 | 52 65 70 65 61 74 20 74 |essage "|Repeat t|
|00005020| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 74 6f 20 73 70 |he comma|nd to sp|
|00005030| 6c 69 74 20 74 68 65 20 | 63 6f 6e 74 61 69 6e 69 |lit the |containi|
|00005040| 6e 67 20 25 73 20 65 6c | 65 6d 65 6e 74 22 5d 20 |ng %s el|ement"] |
|00005050| 35 20 28 23 24 20 2e 20 | 31 39 37 37 34 29 20 22 |5 (#$ . |19774) "|
|00005060| 2a 22 5d 29 0a 23 40 35 | 38 20 49 6e 73 65 72 74 |*"]).#@5|8 Insert|
|00005070| 20 61 20 44 54 44 20 64 | 65 63 6c 61 72 61 74 69 | a DTD d|eclarati|
|00005080| 6f 6e 20 66 72 6f 6d 20 | 74 68 65 20 73 67 6d 6c |on from |the sgml|
|00005090| 2d 63 75 73 74 6f 6d 2d | 64 74 64 20 61 6c 69 73 |-custom-|dtd alis|
|000050a0| 74 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |t...(def|alias 's|
|000050b0| 67 6d 6c 2d 63 75 73 74 | 6f 6d 2d 64 74 64 20 23 |gml-cust|om-dtd #|
|000050c0| 5b 28 64 6f 63 74 79 70 | 65 29 20 22 c0 09 5c 6e |[(doctyp|e) "..\n|
|000050d0| 5c 22 1b c4 0b 41 40 0b | 41 41 5c 22 29 87 22 20 |\"...A@.|AA\")." |
|000050e0| 5b 61 73 73 6f 63 20 64 | 6f 63 74 79 70 65 20 73 |[assoc d|octype s|
|000050f0| 67 6d 6c 2d 63 75 73 74 | 6f 6d 2d 64 74 64 20 65 |gml-cust|om-dtd e|
|00005100| 6e 74 72 79 20 73 67 6d | 6c 2d 64 6f 63 74 79 70 |ntry sgm|l-doctyp|
|00005110| 65 2d 69 6e 73 65 72 74 | 5d 20 33 20 28 23 24 20 |e-insert|] 3 (#$ |
|00005120| 2e 20 32 30 35 38 36 29 | 20 28 6c 69 73 74 20 28 |. 20586)| (list (|
|00005130| 63 6f 6d 70 6c 65 74 69 | 6e 67 2d 72 65 61 64 20 |completi|ng-read |
|00005140| 22 49 6e 73 65 72 74 20 | 44 54 44 3a 20 22 20 73 |"Insert |DTD: " s|
|00005150| 67 6d 6c 2d 63 75 73 74 | 6f 6d 2d 64 74 64 20 6e |gml-cust|om-dtd n|
|00005160| 69 6c 20 74 29 29 5d 29 | 0a 23 40 35 30 20 49 6e |il t))])|.#@50 In|
|00005170| 73 65 72 74 20 6d 61 72 | 6b 75 70 20 66 72 6f 6d |sert mar|kup from|
|00005180| 20 74 68 65 20 73 67 6d | 6c 2d 63 75 73 74 6f 6d | the sgm|l-custom|
|00005190| 2d 6d 61 72 6b 75 70 20 | 61 6c 69 73 74 2e 1f 0a |-markup |alist...|
|000051a0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 67 6d 6c 2d |(defalia|s 'sgml-|
|000051b0| 63 75 73 74 6f 6d 2d 6d | 61 72 6b 75 70 20 23 5b |custom-m|arkup #[|
|000051c0| 28 6d 61 72 6b 75 70 29 | 20 22 c0 c1 5c 6e 0b 5c |(markup)| "..\n.\|
|000051d0| 22 41 40 21 87 22 20 5b | 73 67 6d 6c 2d 69 6e 73 |"A@!." [|sgml-ins|
|000051e0| 65 72 74 2d 6d 61 72 6b | 75 70 20 61 73 73 6f 63 |ert-mark|up assoc|
|000051f0| 20 6d 61 72 6b 75 70 20 | 73 67 6d 6c 2d 63 75 73 | markup |sgml-cus|
|00005200| 74 6f 6d 2d 6d 61 72 6b | 75 70 5d 20 34 20 28 23 |tom-mark|up] 4 (#|
|00005210| 24 20 2e 20 32 30 38 34 | 36 29 20 28 6c 69 73 74 |$ . 2084|6) (list|
|00005220| 20 28 63 6f 6d 70 6c 65 | 74 69 6e 67 2d 72 65 61 | (comple|ting-rea|
|00005230| 64 20 22 49 6e 73 65 72 | 74 20 4d 61 72 6b 75 70 |d "Inser|t Markup|
|00005240| 3a 20 22 20 73 67 6d 6c | 2d 63 75 73 74 6f 6d 2d |: " sgml|-custom-|
|00005250| 6d 61 72 6b 75 70 20 6e | 69 6c 20 74 29 29 5d 29 |markup n|il t))])|
|00005260| 0a 23 40 33 36 32 20 50 | 6f 70 20 75 70 20 61 20 |.#@362 P|op up a |
|00005270| 6d 65 6e 75 20 77 69 74 | 68 20 76 61 6c 69 64 20 |menu wit|h valid |
|00005280| 74 61 67 73 20 61 6e 64 | 20 69 6e 73 65 72 74 20 |tags and| insert |
|00005290| 74 68 65 20 63 68 6f 6f | 73 65 6e 20 74 61 67 2e |the choo|sen tag.|
|000052a0| 0a 49 66 20 74 68 65 20 | 76 61 72 69 61 62 6c 65 |.If the |variable|
|000052b0| 20 73 67 6d 6c 2d 62 61 | 6c 61 6e 63 65 64 2d 74 | sgml-ba|lanced-t|
|000052c0| 61 67 2d 65 64 69 74 20 | 69 73 20 74 2c 20 61 6c |ag-edit |is t, al|
|000052d0| 73 6f 20 69 6e 73 65 72 | 74 73 20 74 68 65 0a 63 |so inser|ts the.c|
|000052e0| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 65 6e 64 |orrespon|ding end|
|000052f0| 20 74 61 67 2e 20 49 66 | 20 73 67 6d 6c 2d 6c 65 | tag. If| sgml-le|
|00005300| 61 76 65 2d 70 6f 69 6e | 74 2d 61 66 74 65 72 2d |ave-poin|t-after-|
|00005310| 69 6e 73 65 72 74 20 69 | 73 20 74 2c 20 74 68 65 |insert i|s t, the|
|00005320| 20 70 6f 69 6e 74 0a 69 | 73 20 6c 65 66 74 20 61 | point.i|s left a|
|00005330| 66 74 65 72 20 74 68 65 | 20 69 6e 73 65 72 74 65 |fter the| inserte|
|00005340| 64 20 74 61 67 28 73 29 | 2c 20 75 6e 6c 65 73 73 |d tag(s)|, unless|
|00005350| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 20 68 61 73 | the ele|ment has|
|00005360| 20 73 6f 6d 20 72 65 71 | 75 69 72 65 64 0a 63 6f | som req|uired.co|
|00005370| 6e 74 65 6e 74 2e 20 20 | 49 66 20 73 67 6d 6c 2d |ntent.  |If sgml-|
|00005380| 6c 65 61 76 65 2d 70 6f | 69 6e 74 2d 61 66 74 65 |leave-po|int-afte|
|00005390| 72 2d 69 6e 73 65 72 74 | 20 69 73 20 6e 69 6c 20 |r-insert| is nil |
|000053a0| 74 68 65 20 70 6f 69 6e | 74 20 69 73 20 6c 65 66 |the poin|t is lef|
|000053b0| 74 0a 61 66 74 65 72 20 | 74 68 65 20 66 69 72 73 |t.after |the firs|
|000053c0| 74 20 74 61 67 20 69 6e | 73 65 72 74 65 64 2e 1f |t tag in|serted..|
|000053d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 67 6d 6c |.(defali|as 'sgml|
|000053e0| 2d 74 61 67 73 2d 6d 65 | 6e 75 20 23 5b 28 65 76 |-tags-me|nu #[(ev|
|000053f0| 65 6e 74 29 20 22 c0 20 | 19 c2 20 88 0b c4 61 ab |ent) ". |.. ...a.|
|00005400| 86 c5 0e 06 21 aa af c7 | 0e 06 09 ac 84 0e 08 ab |....!...|........|
|00005410| 83 c9 aa 81 ca 5c 22 89 | 1e 0b 3f ae 99 09 ab 88 |.....\".|..?.....|
|00005420| cc 0e 0b 60 09 23 aa 8e | 0e 08 ab 86 cd 0e 0b 21 |...`.#..|.......!|
|00005430| aa 84 ce 0e 0b 21 29 29 | 87 22 20 5b 73 67 6d 6c |.....!))|." [sgml|
|00005440| 2d 6d 6f 75 73 65 2d 72 | 65 67 69 6f 6e 20 65 6e |-mouse-r|egion en|
|00005450| 64 20 73 67 6d 6c 2d 70 | 61 72 73 65 2d 74 6f 2d |d sgml-p|arse-to-|
|00005460| 68 65 72 65 20 73 67 6d | 6c 2d 6d 61 72 6b 75 70 |here sgm|l-markup|
|00005470| 2d 74 79 70 65 20 73 74 | 61 72 74 2d 74 61 67 20 |-type st|art-tag |
|00005480| 73 67 6d 6c 2d 61 74 74 | 72 69 62 2d 6d 65 6e 75 |sgml-att|rib-menu|
|00005490| 20 65 76 65 6e 74 20 73 | 67 6d 6c 2d 6d 65 6e 75 | event s|gml-menu|
|000054a0| 2d 61 73 6b 20 73 67 6d | 6c 2d 62 61 6c 61 6e 63 |-ask sgm|l-balanc|
|000054b0| 65 64 2d 74 61 67 2d 65 | 64 69 74 20 65 6c 65 6d |ed-tag-e|dit elem|
|000054c0| 65 6e 74 20 74 61 67 73 | 20 77 68 61 74 20 73 67 |ent tags| what sg|
|000054d0| 6d 6c 2d 74 61 67 2d 72 | 65 67 69 6f 6e 20 73 67 |ml-tag-r|egion sg|
|000054e0| 6d 6c 2d 69 6e 73 65 72 | 74 2d 65 6c 65 6d 65 6e |ml-inser|t-elemen|
|000054f0| 74 20 73 67 6d 6c 2d 69 | 6e 73 65 72 74 2d 74 61 |t sgml-i|nsert-ta|
|00005500| 67 5d 20 35 20 28 23 24 | 20 2e 20 32 31 30 39 35 |g] 5 (#$| . 21095|
|00005510| 29 20 22 2a 65 22 5d 29 | 0a 23 40 31 34 33 20 50 |) "*e"])|.#@143 P|
|00005520| 6f 70 20 75 70 20 61 20 | 6d 65 6e 75 20 77 69 74 |op up a |menu wit|
|00005530| 68 20 76 61 6c 69 64 20 | 65 6c 65 6d 65 6e 74 73 |h valid |elements|
|00005540| 20 61 6e 64 20 69 6e 73 | 65 72 74 20 63 68 6f 69 | and ins|ert choi|
|00005550| 63 65 2e 0a 49 66 20 73 | 67 6d 6c 2d 6c 65 61 76 |ce..If s|gml-leav|
|00005560| 65 2d 70 6f 69 6e 74 2d | 61 66 74 65 72 2d 69 6e |e-point-|after-in|
|00005570| 73 65 72 74 20 69 73 20 | 6e 69 6c 20 74 68 65 20 |sert is |nil the |
|00005580| 70 6f 69 6e 74 20 69 73 | 20 6c 65 66 74 20 61 66 |point is| left af|
|00005590| 74 65 72 20 74 68 65 20 | 66 69 72 73 74 20 0a 74 |ter the |first .t|
|000055a0| 61 67 20 69 6e 73 65 72 | 74 65 64 2e 1f 0a 28 64 |ag inser|ted...(d|
|000055b0| 65 66 61 6c 69 61 73 20 | 27 73 67 6d 6c 2d 65 6c |efalias |'sgml-el|
|000055c0| 65 6d 65 6e 74 2d 6d 65 | 6e 75 20 23 5b 28 65 76 |ement-me|nu #[(ev|
|000055d0| 65 6e 74 29 20 22 c0 09 | c2 5c 22 89 1b ad 83 c4 |ent) "..|.\".....|
|000055e0| 0b 21 29 87 22 20 5b 73 | 67 6d 6c 2d 6d 65 6e 75 |.!)." [s|gml-menu|
|000055f0| 2d 61 73 6b 20 65 76 65 | 6e 74 20 65 6c 65 6d 65 |-ask eve|nt eleme|
|00005600| 6e 74 20 77 68 61 74 20 | 73 67 6d 6c 2d 69 6e 73 |nt what |sgml-ins|
|00005610| 65 72 74 2d 65 6c 65 6d | 65 6e 74 5d 20 34 20 28 |ert-elem|ent] 4 (|
|00005620| 23 24 20 2e 20 32 31 37 | 39 31 29 20 22 2a 65 22 |#$ . 217|91) "*e"|
|00005630| 5d 29 0a 23 40 35 36 20 | 50 6f 70 20 75 70 20 61 |]).#@56 |Pop up a|
|00005640| 20 6d 65 6e 75 20 77 69 | 74 68 20 76 61 6c 69 64 | menu wi|th valid|
|00005650| 20 73 74 61 72 74 2d 74 | 61 67 73 20 61 6e 64 20 | start-t|ags and |
|00005660| 69 6e 73 65 72 74 20 63 | 68 6f 69 63 65 2e 1f 0a |insert c|hoice...|
|00005670| 28 64 65 66 61 6c 69 61 | 73 20 27 73 67 6d 6c 2d |(defalia|s 'sgml-|
|00005680| 73 74 61 72 74 2d 74 61 | 67 2d 6d 65 6e 75 20 23 |start-ta|g-menu #|
|00005690| 5b 28 65 76 65 6e 74 29 | 20 22 c0 09 c2 5c 22 89 |[(event)| "...\".|
|000056a0| 1b ad 83 c4 0b 21 29 87 | 22 20 5b 73 67 6d 6c 2d |.....!).|" [sgml-|
|000056b0| 6d 65 6e 75 2d 61 73 6b | 20 65 76 65 6e 74 20 73 |menu-ask| event s|
|000056c0| 74 61 72 74 2d 74 61 67 | 20 77 68 61 74 20 73 67 |tart-tag| what sg|
|000056d0| 6d 6c 2d 69 6e 73 65 72 | 74 2d 74 61 67 5d 20 34 |ml-inser|t-tag] 4|
|000056e0| 20 28 23 24 20 2e 20 32 | 32 30 37 32 29 20 22 2a | (#$ . 2|2072) "*|
|000056f0| 65 22 5d 29 0a 23 40 35 | 34 20 50 6f 70 20 75 70 |e"]).#@5|4 Pop up|
|00005700| 20 61 20 6d 65 6e 75 20 | 77 69 74 68 20 76 61 6c | a menu |with val|
|00005710| 69 64 20 65 6e 64 2d 74 | 61 67 73 20 61 6e 64 20 |id end-t|ags and |
|00005720| 69 6e 73 65 72 74 20 63 | 68 6f 69 63 65 2e 1f 0a |insert c|hoice...|
|00005730| 28 64 65 66 61 6c 69 61 | 73 20 27 73 67 6d 6c 2d |(defalia|s 'sgml-|
|00005740| 65 6e 64 2d 74 61 67 2d | 6d 65 6e 75 20 23 5b 28 |end-tag-|menu #[(|
|00005750| 65 76 65 6e 74 29 20 22 | c0 09 c2 5c 22 89 1b ad |event) "|...\"...|
|00005760| 83 c4 0b 21 29 87 22 20 | 5b 73 67 6d 6c 2d 6d 65 |...!)." |[sgml-me|
|00005770| 6e 75 2d 61 73 6b 20 65 | 76 65 6e 74 20 65 6e 64 |nu-ask e|vent end|
|00005780| 2d 74 61 67 20 77 68 61 | 74 20 73 67 6d 6c 2d 69 |-tag wha|t sgml-i|
|00005790| 6e 73 65 72 74 2d 74 61 | 67 5d 20 34 20 28 23 24 |nsert-ta|g] 4 (#$|
|000057a0| 20 2e 20 32 32 32 36 36 | 29 20 22 2a 65 22 5d 29 | . 22266|) "*e"])|
|000057b0| 0a 23 40 37 35 20 50 6f | 70 20 75 70 20 61 20 6d |.#@75 Po|p up a m|
|000057c0| 65 6e 75 20 77 69 74 68 | 20 76 61 6c 69 64 20 65 |enu with| valid e|
|000057d0| 6c 65 6d 65 6e 74 73 20 | 61 6e 64 20 74 61 67 20 |lements |and tag |
|000057e0| 63 75 72 72 65 6e 74 20 | 72 65 67 69 6f 6e 20 77 |current |region w|
|000057f0| 69 74 68 20 74 68 65 20 | 63 68 6f 69 63 65 2e 1f |ith the |choice..|
|00005800| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 67 6d 6c |.(defali|as 'sgml|
|00005810| 2d 74 61 67 2d 72 65 67 | 69 6f 6e 2d 6d 65 6e 75 |-tag-reg|ion-menu|
|00005820| 20 23 5b 28 65 76 65 6e | 74 29 20 22 c0 09 c2 5c | #[(even|t) "...\|
|00005830| 22 89 1b ad 87 c4 0b c5 | 20 c6 20 23 29 87 22 20 |".......| . #)." |
|00005840| 5b 73 67 6d 6c 2d 6d 65 | 6e 75 2d 61 73 6b 20 65 |[sgml-me|nu-ask e|
|00005850| 76 65 6e 74 20 65 6c 65 | 6d 65 6e 74 20 77 68 61 |vent ele|ment wha|
|00005860| 74 20 73 67 6d 6c 2d 74 | 61 67 2d 72 65 67 69 6f |t sgml-t|ag-regio|
|00005870| 6e 20 72 65 67 69 6f 6e | 2d 62 65 67 69 6e 6e 69 |n region|-beginni|
|00005880| 6e 67 20 72 65 67 69 6f | 6e 2d 65 6e 64 5d 20 35 |ng regio|n-end] 5|
|00005890| 20 28 23 24 20 2e 20 32 | 32 34 35 34 29 20 22 2a | (#$ . 2|2454) "*|
|000058a0| 65 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |e"]).(de|falias '|
|000058b0| 73 67 6d 6c 2d 6d 65 6e | 75 2d 61 73 6b 20 23 5b |sgml-men|u-ask #[|
|000058c0| 28 65 76 65 6e 74 20 74 | 79 70 65 29 20 22 c0 20 |(event t|ype) ". |
|000058d0| 88 c1 c2 c3 0c 21 21 1d | 1e 06 0e 07 ac a9 0c c8 |.....!!.|........|
|000058e0| 61 ab 89 c9 c3 ca 20 5c | 22 16 06 aa 9b 0c cb 61 |a..... \|"......a|
|000058f0| ac 87 c9 cc cd 20 5c 22 | 16 06 0c ce 61 ac 8a 0e |..... \"|....a...|
|00005900| 06 c9 cf ca 20 5c 22 a4 | 16 06 0e 06 ac 85 d0 d1 |.... \".|........|
|00005910| 0c 5c 22 88 d2 0e 13 0d | c9 d4 0e 06 5c 22 23 ae |.\".....|....\"#.|
|00005920| 83 d5 c1 21 2a 87 22 20 | 5b 73 67 6d 6c 2d 70 61 |...!*." |[sgml-pa|
|00005930| 72 73 65 2d 74 6f 2d 68 | 65 72 65 20 6e 69 6c 20 |rse-to-h|ere nil |
|00005940| 63 61 70 69 74 61 6c 69 | 7a 65 20 73 79 6d 62 6f |capitali|ze symbo|
|00005950| 6c 2d 6e 61 6d 65 20 74 | 79 70 65 20 74 69 74 6c |l-name t|ype titl|
|00005960| 65 20 74 61 62 20 73 67 | 6d 6c 2d 6d 61 72 6b 75 |e tab sg|ml-marku|
|00005970| 70 2d 74 79 70 65 20 65 | 6c 65 6d 65 6e 74 20 6d |p-type e|lement m|
|00005980| 61 70 63 61 72 20 73 67 | 6d 6c 2d 63 75 72 72 65 |apcar sg|ml-curre|
|00005990| 6e 74 2d 6c 69 73 74 2d | 6f 66 2d 76 61 6c 69 64 |nt-list-|of-valid|
|000059a0| 2d 65 6c 74 79 70 65 73 | 20 73 74 61 72 74 2d 74 |-eltypes| start-t|
|000059b0| 61 67 20 73 67 6d 6c 2d | 65 6e 64 2d 74 61 67 2d |ag sgml-|end-tag-|
|000059c0| 6f 66 20 73 67 6d 6c 2d | 63 75 72 72 65 6e 74 2d |of sgml-|current-|
|000059d0| 6c 69 73 74 2d 6f 66 2d | 65 6e 64 61 62 6c 65 2d |list-of-|endable-|
|000059e0| 65 6c 74 79 70 65 73 20 | 65 6e 64 2d 74 61 67 20 |eltypes |end-tag |
|000059f0| 73 67 6d 6c 2d 73 74 61 | 72 74 2d 74 61 67 2d 6f |sgml-sta|rt-tag-o|
|00005a00| 66 20 65 72 72 6f 72 20 | 22 4e 6f 20 76 61 6c 69 |f error |"No vali|
|00005a10| 64 20 25 73 20 61 74 20 | 74 68 69 73 20 70 6f 69 |d %s at |this poi|
|00005a20| 6e 74 22 20 73 67 6d 6c | 2d 70 6f 70 75 70 2d 6d |nt" sgml|-popup-m|
|00005a30| 65 6e 75 20 65 76 65 6e | 74 20 23 5b 28 78 29 20 |enu even|t #[(x) |
|00005a40| 22 08 89 42 87 22 20 5b | 78 5d 20 32 5d 20 6d 65 |"..B." [|x] 2] me|
|00005a50| 73 73 61 67 65 5d 20 36 | 5d 29 0a 28 64 65 66 61 |ssage] 6|]).(defa|
|00005a60| 6c 69 61 73 20 27 73 67 | 6d 6c 2d 65 6e 74 69 74 |lias 'sg|ml-entit|
|00005a70| 69 65 73 2d 6d 65 6e 75 | 20 23 5b 28 65 76 65 6e |ies-menu| #[(even|
|00005a80| 74 29 20 22 c0 20 88 c1 | c2 c3 c4 c5 0e 06 c7 48 |t) ". ..|.......H|
|00005a90| c8 23 c9 5c 22 5c 22 ca | 1e 0b 89 1e 0c ac 84 cd |.#.\"\".|........|
|00005aa0| ce 21 88 cf 0e 10 d1 0e | 0c 23 89 16 0b ad 86 d2 |.!......|.#......|
|00005ab0| 0e 0b d3 b1 03 2a 87 22 | 20 5b 73 67 6d 6c 2d 6e |.....*."| [sgml-n|
|00005ac0| 65 65 64 2d 64 74 64 20 | 6d 61 70 63 61 72 20 23 |eed-dtd |mapcar #|
|00005ad0| 5b 28 78 29 20 22 08 89 | 42 87 22 20 5b 78 5d 20 |[(x) "..|B." [x] |
|00005ae0| 32 5d 20 73 6f 72 74 20 | 73 67 6d 6c 2d 6d 61 70 |2] sort |sgml-map|
|00005af0| 2d 65 6e 74 69 74 69 65 | 73 20 73 67 6d 6c 2d 65 |-entitie|s sgml-e|
|00005b00| 6e 74 69 74 79 2d 6e 61 | 6d 65 20 73 67 6d 6c 2d |ntity-na|me sgml-|
|00005b10| 64 74 64 2d 69 6e 66 6f | 20 33 20 74 20 73 74 72 |dtd-info| 3 t str|
|00005b20| 69 6e 67 2d 6c 65 73 73 | 70 20 6e 69 6c 20 63 68 |ing-less|p nil ch|
|00005b30| 6f 69 63 65 20 6d 65 6e | 75 20 65 72 72 6f 72 20 |oice men|u error |
|00005b40| 22 4e 6f 20 65 6e 74 69 | 74 69 65 73 20 64 65 66 |"No enti|ties def|
|00005b50| 69 6e 65 64 22 20 73 67 | 6d 6c 2d 70 6f 70 75 70 |ined" sg|ml-popup|
|00005b60| 2d 6d 65 6e 75 20 65 76 | 65 6e 74 20 22 45 6e 74 |-menu ev|ent "Ent|
|00005b70| 69 74 69 65 73 22 20 22 | 26 22 20 22 3b 22 5d 20 |ities" "|&" ";"] |
|00005b80| 38 20 6e 69 6c 20 22 2a | 65 22 5d 29 0a 23 40 33 |8 nil "*|e"]).#@3|
|00005b90| 31 36 20 49 6e 73 65 72 | 74 20 73 74 72 69 6e 67 |16 Inser|t string|
|00005ba0| 20 44 4f 43 54 59 50 45 | 20 28 69 67 6e 6f 72 65 | DOCTYPE| (ignore|
|00005bb0| 64 20 69 66 20 6e 69 6c | 29 20 61 6e 64 20 73 65 |d if nil|) and se|
|00005bc0| 74 20 76 61 72 69 61 62 | 6c 65 73 20 69 6e 20 26 |t variab|les in &|
|00005bd0| 72 65 73 74 20 56 41 52 | 53 2e 0a 56 41 52 53 20 |rest VAR|S..VARS |
|00005be0| 73 68 6f 75 6c 64 20 62 | 65 20 61 20 6c 69 73 74 |should b|e a list|
|00005bf0| 20 6f 66 20 76 61 72 69 | 61 62 6c 65 73 20 61 6e | of vari|ables an|
|00005c00| 64 20 76 61 6c 75 65 73 | 2e 0a 46 6f 72 20 62 61 |d values|..For ba|
|00005c10| 63 6b 77 61 72 64 20 63 | 6f 6d 70 61 74 69 62 69 |ckward c|ompatibi|
|00005c20| 6c 69 74 79 20 61 20 73 | 69 6e 67 6c 65 20 73 74 |lity a s|ingle st|
|00005c30| 72 69 6e 67 20 69 6e 73 | 74 65 61 64 20 6f 66 20 |ring ins|tead of |
|00005c40| 61 20 76 61 72 69 61 62 | 6c 65 20 69 73 20 0a 61 |a variab|le is .a|
|00005c50| 73 73 69 67 6e 65 64 20 | 74 6f 20 73 67 6d 6c 2d |ssigned |to sgml-|
|00005c60| 64 65 66 61 75 6c 74 2d | 64 74 64 2d 66 69 6c 65 |default-|dtd-file|
|00005c70| 2e 0a 41 6c 6c 20 76 61 | 72 69 61 62 6c 65 73 20 |..All va|riables |
|00005c80| 61 72 65 20 6d 61 64 65 | 20 62 75 66 66 65 72 20 |are made| buffer |
|00005c90| 6c 6f 63 61 6c 20 61 6e | 64 20 61 72 65 20 61 6c |local an|d are al|
|00005ca0| 73 6f 20 61 64 64 65 64 | 20 74 6f 20 74 68 65 0a |so added| to the.|
|00005cb0| 62 75 66 66 65 72 73 20 | 6c 6f 63 61 6c 20 76 61 |buffers |local va|
|00005cc0| 72 69 61 62 6c 65 73 20 | 6c 69 73 74 2e 1f 0a 28 |riables |list...(|
|00005cd0| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 64 |defalias| 'sgml-d|
|00005ce0| 6f 63 74 79 70 65 2d 69 | 6e 73 65 72 74 20 23 5b |octype-i|nsert #[|
|00005cf0| 28 64 6f 63 74 79 70 65 | 20 76 61 72 73 29 20 22 |(doctype| vars) "|
|00005d00| 08 ab 93 6e ac 83 c1 63 | 88 6c ac 86 c1 63 88 c2 |...n...c|.l...c..|
|00005d10| 75 88 c3 08 21 88 0c ab | a4 0c 40 3b ab 8c c5 c6 |u...!...|..@;....|
|00005d20| 0c 40 5c 22 88 0c 41 89 | 14 aa 6d 0c 40 ab 68 c5 |.@\"..A.|..m.@.h.|
|00005d30| 0c 40 0c 41 40 5c 22 88 | 0c 41 41 89 14 ac 5c 5c |.@.A@\".|.AA...\\|
|00005d40| c7 89 16 08 87 22 20 5b | 64 6f 63 74 79 70 65 20 |....." [|doctype |
|00005d50| 22 5c 6e 22 20 2d 31 20 | 73 67 6d 6c 2d 69 6e 73 |"\n" -1 |sgml-ins|
|00005d60| 65 72 74 2d 6d 61 72 6b | 75 70 20 76 61 72 73 20 |ert-mark|up vars |
|00005d70| 73 67 6d 6c 2d 73 65 74 | 2d 6c 6f 63 61 6c 2d 76 |sgml-set|-local-v|
|00005d80| 61 72 69 61 62 6c 65 20 | 73 67 6d 6c 2d 64 65 66 |ariable |sgml-def|
|00005d90| 61 75 6c 74 2d 64 74 64 | 2d 66 69 6c 65 20 6e 69 |ault-dtd|-file ni|
|00005da0| 6c 20 73 67 6d 6c 2d 74 | 6f 70 2d 74 72 65 65 5d |l sgml-t|op-tree]|
|00005db0| 20 34 20 28 23 24 20 2e | 20 32 33 34 34 33 29 5d | 4 (#$ .| 23443)]|
|00005dc0| 29 0a 23 40 31 30 33 20 | 50 6f 70 20 75 70 20 61 |).#@103 |Pop up a|
|00005dd0| 20 6d 65 6e 75 20 6f 66 | 20 74 68 65 20 61 74 74 | menu of| the att|
|00005de0| 72 69 62 75 74 65 73 20 | 6f 66 20 74 68 65 20 63 |ributes |of the c|
|00005df0| 75 72 72 65 6e 74 20 65 | 6c 65 6d 65 6e 74 0a 28 |urrent e|lement.(|
|00005e00| 6f 72 20 74 68 65 20 65 | 6c 65 6d 65 6e 74 20 77 |or the e|lement w|
|00005e10| 68 69 74 68 20 73 74 61 | 72 74 2d 74 61 67 20 62 |hith sta|rt-tag b|
|00005e20| 65 66 6f 72 65 20 70 6f | 69 6e 74 29 2e 1f 0a 28 |efore po|int)...(|
|00005e30| 64 65 66 61 6c 69 61 73 | 20 27 73 67 6d 6c 2d 61 |defalias| 'sgml-a|
|00005e40| 74 74 72 69 62 2d 6d 65 | 6e 75 20 23 5b 28 65 76 |ttrib-me|nu #[(ev|
|00005e50| 65 6e 74 29 20 22 c0 c1 | 20 21 1a c3 0c c5 5c 6e |ent) "..| !....\n|
|00005e60| 23 29 87 22 20 5b 73 67 | 6d 6c 2d 6d 61 6b 65 2d |#)." [sg|ml-make-|
|00005e70| 61 74 74 72 69 62 2d 6d | 65 6e 75 20 73 67 6d 6c |attrib-m|enu sgml|
|00005e80| 2d 66 69 6e 64 2d 61 74 | 74 72 69 62 75 74 65 2d |-find-at|tribute-|
|00005e90| 65 6c 65 6d 65 6e 74 20 | 6d 65 6e 75 20 73 67 6d |element |menu sgm|
|00005ea0| 6c 2d 70 6f 70 75 70 2d | 6d 75 6c 74 69 2d 6d 65 |l-popup-|multi-me|
|00005eb0| 6e 75 20 65 76 65 6e 74 | 20 22 41 74 74 72 69 62 |nu event| "Attrib|
|00005ec0| 75 74 65 73 22 5d 20 34 | 20 28 23 24 20 2e 20 32 |utes"] 4| (#$ . 2|
|00005ed0| 34 30 30 38 29 20 22 65 | 22 5d 29 0a 28 64 65 66 |4008) "e|"]).(def|
|00005ee0| 61 6c 69 61 73 20 27 73 | 67 6d 6c 2d 6d 61 6b 65 |alias 's|gml-make|
|00005ef0| 2d 61 74 74 72 69 62 2d | 6d 65 6e 75 20 23 5b 28 |-attrib-|menu #[(|
|00005f00| 65 6c 29 20 22 c0 c1 5c | 6e 21 21 89 1b ac 84 c4 |el) "..\|n!!.....|
|00005f10| c5 21 88 0b 1e 06 c7 1e | 08 c7 1e 09 c7 1e 5c 6e |.!......|......\n|
|00005f20| c7 1e 0b c7 1e 0c 0e 06 | 3a 83 c2 00 0e 06 40 16 |........|:.....@.|
|00005f30| 08 cd 0e 08 21 16 09 ce | 0e 08 21 16 5c 6e cf d0 |....!...|..!.\n..|
|00005f40| 0e 08 21 21 ae 86 d1 d0 | 0e 08 21 21 16 0b cd 0e |..!!....|..!!....|
|00005f50| 08 21 0e 0b ab af 0e 0b | 1e 12 c7 1e 13 c7 1e 14 |.!......|........|
|00005f60| 0e 12 3a ab 9a 0e 12 40 | 89 16 13 d5 0e 09 0e 13 |..:....@|........|
|00005f70| 45 44 0e 14 42 16 14 0e | 12 41 89 16 12 aa 63 0e |ED..B...|.A....c.|
|00005f80| 14 9f 2b aa 94 d6 d5 cd | 0e 08 21 d7 d8 0e 08 44 |..+.....|..!....D|
|00005f90| d9 5c 6e 0e 09 5c 22 45 | 45 44 43 da db 0e 5c 6e |.\n..\"E|EDC...\n|
|00005fa0| 5c 22 3f ad 99 dc da c7 | 0e 5c 6e 5c 22 ab 89 dd |\"?.....|.\n\"...|
|00005fb0| de df 0e 5c 6e 21 5c 22 | aa 81 e0 d5 0e 09 c7 45 |...\n!\"|.......E|
|00005fc0| 44 44 a4 42 0e 0c 42 16 | 0c 0e 06 41 89 16 06 82 |DD.B..B.|...A....|
|00005fd0| 21 00 0e 0c 9f 2e 07 87 | 22 20 5b 73 67 6d 6c 2d |!.......|" [sgml-|
|00005fe0| 6e 6f 6e 2d 66 69 78 65 | 64 2d 61 74 74 72 69 62 |non-fixe|d-attrib|
|00005ff0| 75 74 65 73 20 73 67 6d | 6c 2d 65 6c 65 6d 65 6e |utes sgm|l-elemen|
|00006000| 74 2d 61 74 74 6c 69 73 | 74 20 65 6c 20 61 74 74 |t-attlis|t el att|
|00006010| 6c 69 73 74 20 65 72 72 | 6f 72 20 22 4e 6f 20 6e |list err|or "No n|
|00006020| 6f 6e 2d 66 69 78 65 64 | 20 61 74 74 72 69 62 75 |on-fixed| attribu|
|00006030| 74 65 73 20 66 6f 72 20 | 65 6c 65 6d 65 6e 74 22 |tes for |element"|
|00006040| 20 47 38 38 30 30 32 20 | 6e 69 6c 20 61 74 74 64 | G88002 |nil attd|
|00006050| 65 63 6c 20 6e 61 6d 65 | 20 64 65 66 76 61 6c 20 |ecl name| defval |
|00006060| 74 6f 6b 65 6e 73 20 47 | 38 38 30 30 33 20 73 67 |tokens G|88003 sg|
|00006070| 6d 6c 2d 61 74 74 64 65 | 63 6c 2d 6e 61 6d 65 20 |ml-attde|cl-name |
|00006080| 73 67 6d 6c 2d 61 74 74 | 64 65 63 6c 2d 64 65 66 |sgml-att|decl-def|
|00006090| 61 75 6c 74 2d 76 61 6c | 75 65 20 73 67 6d 6c 2d |ault-val|ue sgml-|
|000060a0| 64 65 63 6c 61 72 65 64 | 2d 76 61 6c 75 65 2d 74 |declared|-value-t|
|000060b0| 6f 6b 65 6e 2d 67 72 6f | 75 70 20 73 67 6d 6c 2d |oken-gro|up sgml-|
|000060c0| 61 74 74 64 65 63 6c 2d | 64 65 63 6c 61 72 65 64 |attdecl-|declared|
|000060d0| 2d 76 61 6c 75 65 20 73 | 67 6d 6c 2d 64 65 63 6c |-value s|gml-decl|
|000060e0| 61 72 65 64 2d 76 61 6c | 75 65 2d 6e 6f 74 61 74 |ared-val|ue-notat|
|000060f0| 69 6f 6e 20 47 38 38 30 | 30 34 20 76 61 6c 20 47 |ion G880|04 val G|
|00006100| 38 38 30 30 35 20 73 67 | 6d 6c 2d 69 6e 73 65 72 |88005 sg|ml-inser|
|00006110| 74 2d 61 74 74 72 69 62 | 75 74 65 20 22 53 65 74 |t-attrib|ute "Set|
|00006120| 20 61 74 74 72 69 62 75 | 74 65 20 76 61 6c 75 65 | attribu|te value|
|00006130| 22 20 73 67 6d 6c 2d 72 | 65 61 64 2d 61 74 74 72 |" sgml-r|ead-attr|
|00006140| 69 62 75 74 65 2d 76 61 | 6c 75 65 20 71 75 6f 74 |ibute-va|lue quot|
|00006150| 65 20 73 67 6d 6c 2d 65 | 6c 65 6d 65 6e 74 2d 61 |e sgml-e|lement-a|
|00006160| 74 74 76 61 6c 20 73 67 | 6d 6c 2d 64 65 66 61 75 |ttval sg|ml-defau|
|00006170| 6c 74 2d 76 61 6c 75 65 | 2d 74 79 70 65 2d 70 20 |lt-value|-type-p |
|00006180| 72 65 71 75 69 72 65 64 | 20 22 2d 2d 22 20 66 6f |required| "--" fo|
|00006190| 72 6d 61 74 20 22 44 65 | 66 61 75 6c 74 3a 20 25 |rmat "De|fault: %|
|000061a0| 73 22 20 73 67 6d 6c 2d | 64 65 66 61 75 6c 74 2d |s" sgml-|default-|
|000061b0| 76 61 6c 75 65 2d 61 74 | 74 76 61 6c 20 22 23 49 |value-at|tval "#I|
|000061c0| 4d 50 4c 49 45 44 22 5d | 20 31 31 5d 29 0a 23 40 |MPLIED"]| 11]).#@|
|000061d0| 31 33 30 20 46 69 6c 6c | 20 62 69 67 65 73 74 20 |130 Fill| bigest |
|000061e0| 65 6e 63 6c 6f 73 69 6e | 67 20 65 6c 65 6d 65 6e |enclosin|g elemen|
|000061f0| 74 20 77 69 74 68 20 6d | 69 78 65 64 20 63 6f 6e |t with m|ixed con|
|00006200| 74 65 6e 74 2e 0a 49 66 | 20 63 75 72 72 65 6e 74 |tent..If| current|
|00006210| 20 65 6c 65 6d 65 6e 74 | 20 68 61 73 20 70 75 72 | element| has pur|
|00006220| 65 20 65 6c 65 6d 65 6e | 74 20 63 6f 6e 74 65 6e |e elemen|t conten|
|00006230| 74 2c 20 72 65 63 75 72 | 73 69 76 65 6c 79 20 66 |t, recur|sively f|
|00006240| 69 6c 6c 20 74 68 65 0a | 73 75 62 65 6c 65 6d 65 |ill the.|subeleme|
|00006250| 6e 74 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |nts...(d|efalias |
|00006260| 27 73 67 6d 6c 2d 66 69 | 6c 6c 2d 65 6c 65 6d 65 |'sgml-fi|ll-eleme|
|00006270| 6e 74 20 23 5b 28 65 6c | 65 6d 65 6e 74 29 20 22 |nt #[(el|ement) "|
|00006280| c0 c1 21 88 c2 0b c4 48 | 4a 57 ab 90 c2 0b c5 48 |..!....H|JW.....H|
|00006290| c4 48 4a 57 ab 86 0b c5 | 48 13 aa 70 c6 0b 21 88 |.HJW....|H..p..!.|
|000062a0| c7 c8 21 87 22 20 5b 6d | 65 73 73 61 67 65 20 22 |..!." [m|essage "|
|000062b0| 46 69 6c 6c 69 6e 67 2e | 2e 2e 22 20 33 20 65 6c |Filling.|.." 3 el|
|000062c0| 65 6d 65 6e 74 20 30 20 | 35 20 73 67 6d 6c 2d 64 |ement 0 |5 sgml-d|
|000062d0| 6f 2d 66 69 6c 6c 20 73 | 67 6d 6c 2d 6d 65 73 73 |o-fill s|gml-mess|
|000062e0| 61 67 65 20 22 44 6f 6e | 65 22 5d 20 33 20 28 23 |age "Don|e"] 3 (#|
|000062f0| 24 20 2e 20 32 35 30 34 | 34 29 20 28 6c 69 73 74 |$ . 2504|4) (list|
|00006300| 20 28 73 67 6d 6c 2d 66 | 69 6e 64 2d 65 6c 65 6d | (sgml-f|ind-elem|
|00006310| 65 6e 74 2d 6f 66 20 28 | 70 6f 69 6e 74 29 29 29 |ent-of (|point)))|
|00006320| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 67 |]).(defa|lias 'sg|
|00006330| 6d 6c 2d 64 6f 2d 66 69 | 6c 6c 20 23 5b 28 65 6c |ml-do-fi|ll #[(el|
|00006340| 65 6d 65 6e 74 29 20 22 | 08 ab 89 c1 5c 6e 21 62 |ement) "|....\n!b|
|00006350| 88 c3 c4 21 88 8a c5 5c | 6e c4 48 4a 57 ab f8 c6 |...!...\|n.HJW...|
|00006360| c7 5c 6e 21 c6 1e 08 1e | 09 1e 5c 6e cb 5c 6e 21 |.\n!....|..\n.\n!|
|00006370| 62 88 6c ab 83 cc 75 88 | 60 16 5c 6e 0e 09 ab b4 |b.l...u.|`.\n....|
|00006380| c5 0e 09 c4 48 4a 57 ac | a2 0e 5c 6e c1 0e 09 21 |....HJW.|..\n...!|
|00006390| 42 0e 08 42 16 08 c1 0e | 09 21 62 88 cd 0e 09 21 |B..B....|.!b....!|
|000063a0| 88 ce 60 21 16 09 cf 0e | 09 21 16 5c 6e d0 0e 09 |..`!....|.!.\n...|
|000063b0| 21 89 16 09 ac 4c d1 0e | 5c 6e d2 ce c1 5c 6e 21 |!....L..|\n...\n!|
|000063c0| 21 21 5c 22 88 0e 08 ad | 94 d1 0e 08 40 40 0e 08 |!!\"....|....@@..|
|000063d0| 40 41 5c 22 88 0e 08 41 | 89 16 08 ac 6d c6 2b aa |@A\"...A|....m.+.|
|000063e0| 9f c7 5c 6e 21 89 1e 09 | ad 96 c1 0e 09 21 62 88 |..\n!...|.....!b.|
|000063f0| cd 0e 09 21 88 d0 ce 60 | 21 21 89 16 09 ac 6b c6 |...!...`|!!....k.|
+--------+-------------------------+-------------------------+--------+--------+